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Editorial 

QUE INSISTAN, 
NO NOS PREOCUPA 



La falta de rigor técnico, de profe- 
sionalidad y ética con la que de- 
terminadas empresas intentan 
colocar sus productos en el mer- 
cado, llega en ocasiones a extre- 
mos provocativos. Nosotros, vo- 
sotros, ya no defensores de un sis- 
tema sino simples usuarios que 
conocemos las enormes ventajas 
y satisfacciones que nuestra con- 
figuración nos reporta, asistimos 
-desde la barrera-a estas pugnas 
entre pseudo-compañías que 
ofrecen duros a cuatro pesetas 
(Compatibles, eso sí). A estas al- 
turas, frente a tantas y tantas ab- 
surdidades vertidas acerca nues- 
tra querida norma MSX, no nos 
queda otro remedio que recurrir 
al sarcástico espíritu de Oscar 
Wilde, y afirmar que también pre- 
ferimos que hablen mal de noso- 
tros, a que nos ignoren. Cuando el 
río suena... por algo será. Lógica- 
mente, los responsables de tan si- 
niestras compañías, son cons- 
cientes de que nos avalan las más 
importantes multinacionales del 
sector de la microinformática. De 
ahí su charlatanería y falta de 
propiedad; saben que es otra bata- 
lla perdida de antemano. Allá 
ellos con su incompetencia y sen- 
sacionalismo informático. Y si 
no, observad con detenimiento 
nuestro sumario: encontraréis 
suñcientes argumentos para si- 
lenciar a estos cuatro ineptos dis- 
frazados de profesionales. Buen 
provecho. 
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AMPLIACION DE 
MEMORIA 

¿Dónde puedo encontrar 
ampliaciones de memoria 
para los MSX? ¿Se puede am- 
pliar internamente la memo- 
ria de los MSX? 

Rafael Cabello Rulz 
CORDOBA 

Al ser los ordenadores MSX 



compatibles entre sí puedes 
utilizar cualquiera de las am- 
pliaciones de memoria exis- 
tentes en el mercado: Sony o 
Philips, por ejemplo. Para lo- 
calizarlas puedes dirigirte a 
cualquier comercio especiali- 
zado en informática o bien a 
grandes almacenes. Es posible 
encontrarlas en algunos co- 
mercios de electrodomésticos 
que realizan también ventas 
de ordenadores. 
A tu segunda pregunta he- 





mos de responder que ño exis- 
te, por el momento, ningún 
medio de ampliar in ternamen - 
te la memoria de los MSX. 




COMPATIBILIDAD MSX-2 




MITSUBISHI MC-GI MSX-2 

Varios lectores nos han es- 
crito quejándose, lamentándo- 
se, o bien intentando aportar 
algo para solucionar los pro- 
blemas de incompatibilidad 
encontrados en varios progra- 
mas sobre los MSX de segunda 
generación. 

Es de todos conocido que al- 
gunos programas no cargan 
en los MSX de segunda genera- 
ción. Esto es debido, como he- 
mos comentado cientos de ve- 
ces, a que estos programado- 
res no siguen las normas de 
los MSX. 

Pero el objetivo de nuestra 
revista no es el quejarnos y la- 
mentarnos por esta incompa- 
tibilidad, sino el intentar apor- 
tar soluciones. 

Muchos lectores nos han es- 
crito comunicándonos que con 
un POKE "milagroso" se conse- 
guían cargar algunos progra- 
mas reacios a ello. 

Este poke, el POKE SfHFFFF, 
fifHAA realmente funciona en 
muchas ocasiones (en los 
Sony HB-F700S); pero no es ni 
mucho menos una solución 
definitiva. 

El problema radica en dos 
puntos. Por parte de los MSX- 



2, el uso de los subbancos, ijiuy 
poco conocidos por los progra- 
madores, y que se olvidan de 
asignarlos, con el consiguien- 
te CRASH. El segundo proble- 
ma radica en que cada progra- 
mador utiliza los bancos a su 
manera, sin seguir las rutinas 
marcadas por la ROM. Esto 
hace extremadamente difícil 
el indicar un sistema para ha- 
cer que estos programas fun- 
cionen. 



Nuestro departamento de 
programación Devaya bastan- 
te tiempo intentando desarro- 
llar una rutina que acabe defi- 
nitivamente con esta incom- 
patibilidad; pero es muy difícil 
lograrlo, por lo que agradece- 
ríamos a todos los lectores que 
tengan alguna solución par- 
cial que nos hagan partícipes 
de ella para darle así la mayor 
difusión. 

Por otra parte estamos en 
contacto con ASCII Corpora- 
tion en Japón, intentando so- 
lucionar la falta de informa- 
ción sobre los MSX de segunda 
generación existente en nues- 
tro país. 



ERRORES DE CARGA 



Hace poco que me he com- 
prado el juego "Las Tres Luces 
de Glaurung" y después de car- 
gar las dos presentaciones me 
sale "NO COMPATIBLE". ¿Por 
qué sale ese error? Un amigo, 
con mi mismo ordenador (HB- 
101P), no tiene ningún proble- 
ma para cargarlo. 

Jorge Pascual Uopis 
Alcoy C ALICANTE) 

81 con un ordenador igual al 
tuyo el programa carga perfec- 
tamente, podemos deducir que 
el problema no es de compati- 
bilidad. 

Es muy posible que se trate 
de un error de carga del pro- 
grama debido a un mal ajsute 
del azimut del cabezal. Intenta 
solucionarlo de esta manera, 
ya que sólo un error de carga 
(algún bit conñmdldo) puede 
hacer que aparezca el error 
"NO COMPATIBLE" si el juego 
funciona en otro ordenador. 



LOS BANCOS DEL 
HB-S5P 




S0NYHB-5BP 



Tengo un Sony HB-55P con 
un cartucho de ampliación de 
memoria de 16 Kb, con lo que 
tengo 28818 bytes libres. Por 
mucho que lo intento no consi- 
go cargar ciertos programas 
como Knight Lore, Alien 8, etc. 
¿Se debe esto a que necesito 
más ROM? 



A la vista del mapa de memo- 
ria de tu ordenador que nos 



• 



has enviado (y sin el cual nos 
hubiese sido imposible res- 
ponder a tu pregunta) hemos 
de decirte que el problema re- 
sida, probablemente, en la con- 
figuración de los slots de tu 
aparato y a que estos progra- 
mas no siguen las normas 
MSX. 

Hemos de decirte que no pre- 
cisas de más ROM, y que con- 
tendrás RAM sufíciente siem- 
pre que utilices una amplia- 
ción de 64 Kb. 

Esto no quiere decir que los 
programas vayan a funcionar 
si consigues tal ampliación. 
Simplemente, es posible que 
funcionen, mientras que es 
imposible que lo hagan con 
sólo una ampliación de 16 Kb 
de RAM, ya que en este tipo de 
juegos se precisa de una me- 
moria de 64Kb de RAM. 



HB-55P 

Sistema normal 



raoooo 



SLOTO 



ffH8000 



ffHCOOO 



tfHFFFF 



MSX-BASIC 



Banco de datos 
Personales 



Zona libre 



Zona Sistema 



> ROM 



RAM 

16Kb 



CON EL HBM-16 



SLOTO 



jfHOOOO 



0H8OOO 



tfHFFFF 



MSX-BASIC 



Banco de datos 
Personales 



Zonalit 
12Kb 



Ubre 



Zona Sistema 



ROM 



OT38000 
Ampliación 
RAM 
16Kb 



16Kb 



REGALATE UN LIBRO 
VITAL PARA EL 




— 




TEST DE 
LISTADOS 



¿Cómo corregir los errores 
de transcripción de los 
programas? 
La solución a los errores en 
los programas es este TEST 



CON GARANTIA 

MAKHATTAN TPAMSFFP SA 



OTRA VEZ EL TEST DE 
LISTADOS 

Tras haber escrito el progra- 
ma, v al intentar cargar el test 




grama original. ¿Cómo lo pue- 
do evitar? 

Tengo un Sony HB-101P. 
Este ordenador, ¿es de la pri- 
mera o de la segunda genera- 
ción? 

Daniel Sánchez Valencia 



Por enésima vez hemos de 
decir que el test de listados se 
ha de cargar tras haber copia- 
do TODO el programa original, 
y no sólo una parte. Tras esto, 
hay que cargar el test de lista- 
dos con la instrucción MERQE 
"CAS: "y, por último, ejecutar el 
test de listados con RUN 
65000. 

Esperamos que quede sufi- 
cientemente claro todo el pro- 
ceso. 

A tu segunda pregunta he- 
mos de decirte que el SonyHB- 
lOlPesun ordenador MSX de 
Drimera veneración 

DISCO EN EL HB-F700S 

Acabo de comprarme un or- 
denador de la segunda genera- 
ción, concretamente el SONY 
HB-F700S y al manejar la uni- 
dad de disco me da la sensa- 
ción de que es un poco lenta. 
En la tienda me dicen que es 
normal y por este motivo les 
escribo. 

Javier Pérez 



Efectivamente, el principad 
defecto que hemos podido en- 
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con trar al 'ordenador HB- 700S 
de Sony ( un Inmejorable apara- 
to, por lo demás ) es que su uni- 
dad de disco es sensiblemente 
lenta. Aunque en comparación 
con otras unidades ésta es len- 
ta (tampoco excesivamente), 
no se puede comparar la velo- 
cidad de lectura de estas unida- 
des con la que soportan los 
cassettes convencionales. 

Hemos de decirte que otras 
unidades de Sony, e incluso 
unidades de doble cara (720 
Kb ) alcanzan velocidades ma- 
yores que la que ofrece este 
aparato. Desgraciadamente 
nadie es perfecto, y el HB- 700S 
no es una excepción. 




GRAFICOS DEFORMES 

Les escribo porque tengo un 
problema con el programa 
COPY-LPRINT que publicaron 
en su número 16. El programa 
es que aunque el programa 
funciona en SCREEN 2, me 
saca los gráficos más altos que 
anchos. ¿A qué es esto debido? 
Mi impresora es una SONY 
PRN-M120B MATRICIAL. 

Juan Carlos Enrique 
Burriana (CASTELLON) 

El problema que comentas 
sobre la deformación de los 
gráficos al salir por la impre- 
sora es, desgraciadamente, 
muy difícil de corregir. 

El problema reside en que, 
mientras en la pantalla los 
puntos son más anchos que al- 
tos en relación 4/3, en tu im- 
presora son más anchos que 
altos en relación 6/3. 

Desgraciadamente este pro- 
blema es, como ya hemos di- 
cho, muy complicado de resol- 
ver, ya que en la memoria del 
ordenador los gráficos son 
perfectos ( aunque no lo son ni 
en la pantalla, ni sobre la im- 
presora ). 

Para corregir este defecto 
deberías realizar un programa 
que corrigiera la deformación 
de "tu" impresora, ya que en 
otras impresoras esta defor- 
mación puede ser diferente. 
Las modificaciones a realizar 
en el programa COPY-LPRINT 
son importantes; pero no es 
imposible adaptar el progra- 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El pótente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarin. El archivo 
en casa. 




i 

! Deseo me envíen el libro de los secretos del MSX, para lo 
¡ cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. . 



í 



! 



Nombre y apellidos 

Calle n. 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA i 
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HABflAH PROGRAMAS 



Acabo de comprar un orde- 
nador HB-P9S de Sony. Cuando 
quise cargar un programa me 
ponía, para cargar BLOAD 
"nompram", R; pero no lo car- 
gó. Tras consultar el manual 
de instrucciones del ordena- 
dor me indicaba que para car- 
gar un programa hiciera 
CLOAD "nombprogram"; pero 
tampoco resultó. ¿Cómo puedo 
cargar el programa? 

Sergio Mojón Suárez 
LA CORUJA 

Copio ya sabe la Inmensa 
mayoría de nuestros lectores, 
la Instrucción CLOAD permite 
cargar programas "en BASIC" 
del cassette. En tu caso, el pro- 
grama del que nos hablas no 
está hecho en BASIC, por lo 
que no conseguiréis cargarlo 
con la instrucción CLOAD. 

El uso de la instrucción 
BLOAD es el más acertado. El 
error de carga que nos comen- 
tas puede ser debido a muchas 
razones, de las cuales te inten- 
taremos exponer algunas. 

Puedes haberte equivocado 
al escribir el nombre del pro- 
grama o escribirlo en mayús- 
culas cuando debía ser en mi- 
núsculas, o un largo etcétera 
de posibilidades. Para solven- 
tar cualquier error de este tipo 
prueba a cargar el programa 



BLOAD u CAS: n , R 
Si no cargase el programa de 
este modo, puede ser ptoblema 
del azimut de tu aparato de 
cassette. Ajusta con un peque- 
ño destornillador el tornillo 
que se encuen tra a la izquierda 
del cabezal de tu cassette, de 
forma que oigas el sonido del 
cassette lo más alto posible. 

Si ninguna de estas solucio- 
nes diese resultado, cabe pen- 
sar en varias posibüidades, 
menos sencillas de resolver. 

'Mala conexión de los ca- 
bles del cassette. Prueba a car- 
gar cualquier otro programa 
para comprobarlo. 

* Mal estado de la cinta. 
'Incompatibilidad del pro- 
grama con el MSX-2 
'Etc. 




ENSAMBLADOR Y 
VHAM 

Estoy tras un ensamblador/ 



desensamblador y querría que 
me dijeran a qué precio los 
puedo encontrar en cartucho. 
¿Existen los dos programas en 
un solo cartucho? 

¿Pueden introducirse datos 
de un solo bit con vpoke en la 
VRAM de SCREEN 2? ¿Cómo 
funciona la RAM de video en 
SCREEN 2? 

Marcos Jara Muriel 



Lamentablemente nuestras 
fuentes de información no son 
tan amplias como desearía- 
mos. Sabemos de la existencia 
de algún cartucho que incor- 
pora ensamblador y desen- 
samblador en un mismo cartu- 
cho; pero no conocemos ni su 
precio ni su distribuidor en Es- 
paña. Informaremos de ello en 
cuanto consigamos noticias. 

Tu según da pregun ta es muy 
interesante, y tal vez algo ge- 
neral en cuanto a cómo funcio- 
na la VRAM en SCREEN 2. 

En la VRAM encontramos 
varias tablas. Cada una de es- 
tas tablas contine una infor- 
mación especíñca. Dos de ellas 
se encargan de generar y con- 
trolar los sprites. Estas tablas 
son la TOS (tabla generadora 
de sprites) y la TAS (tabla de 
atributos de los sprites ). En la 
TOS se halla la forma binaría 
de los sprites, mientras que en 
la TAS encontramos sus coor- 
denadas en la pantalla, su co- 
lor y el plano. 

Otras tablas de interés son 
la TQP, la TC que controlan, 
respectivamente, los gráficos 
y los colores. En la TOP un 1 
equivale a un punto encendido, 
mientras que uh 0 equivale a 
un punto apagado. En la TC se 
encuentra la información que 
permite colorearlos dibujos de 
la TOP. 

La TNP (disposición de los 
caracteres), que se utilizan 
ampliamente en SCREEN Oyl, 
no se utiliza normalmente en 
SCREEN 2, aunque pueden lo- 
grarse interesantes efectos 
mediante esta tabla. 

Las tablas de las que hemos 
hablado se encuentran en las 
siguientes direcciones de me- 
moria de la VRAM. 

TOP: 0-6143 
TNP: 6144-6911 
TAS: 6912-8191 
TC: 8 1 92- 1 4335 
TOS: 14336-16359 

Finalmente, a tu pregunta 
de cómo modificar un solo bit 
en la VRAM, nada más fácü. 
Debes leer de la VRAM el dato a 
modificar (todo el byte ), modi- 
fícar el bit o bits que te intere- 
sen, y volverlo a enviar a la 
VRAM. 

Como ejemplo, supongamos 
que deseas poner a 1 el tercer 
bit de la posición 4561. Esto 



VPOKE 4561 , VPEEK (4561 ) 
0R&3 




w mm * 

NUEVO 




8KY HAWK. Un magnifico Juego de simula- 
ción de vuelo. En él te conviertes en un piloto 
que ha de derribar al enemigo y regresar al 
portaaviones sano y salvo. PVP. 1.000 pts. 
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LORD WAT80N. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas. Los obstáculos fantásticos y el vo- 




MATA MARCIANOS. Un Juego clásico en una 
versión cuya m^yor virtudes su diabólica ve- 
locidad que aumenta a medida que superamos 
las 

PVP. 900 pts. 



sé- -52- 




CON GARANTIA 



VAMPIRE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantaamafl, etc. ün Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 



PARA MSX-1 



HARD 
G0PY 

POR JOAQUIN LOPEZ 

Mrnu» por vrntnna» trea 
formato* d« copla» nmulnnon 
en blanco y nefro copia 
mprtte» redef me colore % 
compatible con cualquier 
tmpreaora matriclal 



CON GARANTIA 



HARD C0PY. Para copiar pantallas. Tres 
formatos de coplas, simulación por blanco y 
negro, copla sprites, redefinic. de colores, 
compatible con todas las Impresoras ma- 
tric. PVP. 2.500 Pts. 



da 



TEST DE 
LISTADOS 



¿Cómo corregir los errores 
de transcripción de los 
programas? 
La solución a los errores en 
los programas es este TEST 
DE LISTADOS. 



CON GARANTIA 

TRANSFEPSA 



TEST DE LISTADOS. El segundo programado 
la Serle Oro es el útilísimo Test que te permi- 
tirá controlar la corrección de los progra- 
mas que copies de MSX CLUB y MSX EXTRA. 
PVP. 500 Pts. 






club 




U-BOCT I QUINIELAS 



N GARANTIA 



* 



KRYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP. 500 Ptas. 



El secreto ele la 



U-B00T. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP 700 Ptas. 



CON GARANTIA / 

A A A M JATTAM TT^AnT^TIT S C 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte PVP. 700 
Ptas. 




SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP. 600 Ptas 







EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. [Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RÜNNER. Conviértete en el audaz FLOPPY. El Preguntón. Un verdadero desafio 

piloto interestelar y lucha a muerte, a a tus conocimientos de Geografía e Historia 

través del hiperespacio, contra las defen- española. Floppy no Perdona y te costara 

sas del tirano Daurus. Dos pantallas y much0 superarlo PVP 1.000 Ptas 
cinco niveles de dificultad. PVP. 1.000 pts. 



MAD FOX Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 
de dificultad. PVP 1000 pts 

Si quieresreertir por COT^cer^wdo^ta^ recorta o copia este boletín y envíalo hoy mismo: 
I Nombre y apellidos: •»•••••••• • **»..*.......... 

i 



Población: 



»••••••••••••••< 



»•••• 



••• 
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□ HARDCOPY .. 

□ LORDWATSON 







Ptas. 500- 
Ptas. 700,- 
Ptas. 700,- 
Ptas. 2.500- 
Ptas. 1.000,- 



□ SNAKE 

□ EL SECRETO DE LA PIRAMIDE 

□ STAR RÜNNER 



□ TEST DE LISTADOS 

□ MATA MARCIANOS 



Ptas. 600,- 
Ptas. 700,- 
Ptas. 1.000,- 
Ptas. 500,- 
Ptas. 900,- 



□ FLOPPY 

□ MAD FOX .. 

□ VAMPIRO . 

□ SKYHAWK 

□ 







Ptas. 1.000- 
Ptas. 1.000,- 
Ptas. 800,- 
Ptas. 1.000- 
Ptas. 1.000,- 



Ptas. 70,- Remito talón bancario de Ptas. 







i 

a la orden de Manhattan Transfer, S Aj 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 
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SVI-328 Y 318. 



BIENVENIDOS AL MSX 

Los usuarios de ordenadores SVT-328y SVI-318 tenían ya perdidas sus esperanzas por encontrar algún adaptador 
que convirtiera sus ordenadores en MSX. CCG ha obrado el milagro. Sometemos a un banco de pruebas al primer 

adaptador MSX. 



SVI-318 Y 328. EL POR QUE DE OTA 
INCOMPATIBILIDAD 

Algunos de nuestros lectores 
son usuarios de unos apara 
tos un tanto peculiares, los 
Spectravideo SVI-318 y SVT-328. Es- 
tos aparatos aparecieron en el mer- 
cado bastante antes de que lo hicie- 
ran los MSX. 

En realidad este fue el ordenador 
utüizado como prototipo para el de- 
sarroUo de los MSX. En cuanto a 
hardware, sus componentes son 
idénticos a los de los MSX; pero su 
disposición interna (a nivel de 
ports) es ligeramente diferente. Ade- 
más, los primeros modelos de SVT 
permiten opciones que no permiten 
los MSX, como la mezcla del sonido 
del cassette con el emitido por el or- 
denador y otras muchas característi- 
cas. 

El BASIC de estos aparatos es 98 % 
MSX, ya que sólo varían media doce- 
na de instrucciones. Por esta razón 
los usuarios de SVI-318 y SVI-328, 
sintiéndose usuarios de MSX por su 
cercanía al estándar, se encuentran 
con máquinas incompatibles, que no 
les permiten utilizar la gran canti- 
dad de programas desarrollados para 
el estándar. 

La solución a este problema, repe- 
tidamente prometida por unos y 
otros, no ha llegado en varios años. 
Pero ahora, un desarrollo íntegra- 
mente nacional Uega al mercado de 
los SVI-328 y 318. CCG SS?H ha con- 
seguido lo que ningún otro había po- 
dido realizar, convertir en auténticos 
MSX a los ordenadores SVI-328 y 
318: 

EL ADAPTADOR CCG 

El adaptador MSX para SVI-328 es 
un producto íntegramente fabricado 
por CCG SSPH en España. Se trata de 
un cartucho que, conectado al slot de 
cartucho de los SVI-328 o de los SVT- 
318 (con ampliación de memoria), 
instala un sistema compatible con el 
MSX BASIC v.1.0., es decir, el utüiza- 
do por los MSX de segunda genera- 
ción. 

El aspecto del adaptador es muy 
simple. Consiste en dos chips de 
ROM, que contienen la BIOS MSX y el 
conjunto de programas que permiten 
las operaciones especiales, de las que 



ADAPTADO 




sx 

PARA 
SPECTRAVIDEO 




El sensacional adaptador desarrollado por C.C.Q. S&H permite 

de cabo a rabo. 



hablaremos más adelante. Estos dos 
chips, soldados a una placa de circui- 
to impreso, se conectan directamen- 
te al slot de cartucho de los SVI no 
MSX. 

El conjunto de chips y circuito im- 
preso se halla protegido por dos lá- 
minas de aluminio que sirven, al mis- 
mo tiempo, de disipador térmico, ya 
que el cartucho se calienta conside- 
rablemente. 



CONECTAMOS EL ADAPTADOR 

Siguiendo las instrucciones de los 
inmejorables manuales suministra- 
dos por CCG S6PH conectamos el 
adaptador al slot de nuestro SVI-328 
y encendemos el aparato. A los pocos 
segundos aparece en la pantalla el 
mensaje de bienvenida usual en los 



tramos en modo MSX. 

A partir de este momento podemos 
trabajar como si de un MSX se trata- 
se. Existen varias diferencias de te- 
clado entre los aparatos SVI-328 y 
los MSX; pero han sido solucionadas 
por CCG, y ampliamente comentadas 
en sus manuales. 



Empezamos a programar en BA- 
No existe ninguna diferencia 
apreciable con los MSX, a excepción 
de tres comandos que han sido modi- 
ficados. 

El comando PDL se utiliza en los 
SVI + adaptador para pasar al modo 
SVI sin necesidad de desconectar el 
adaptador. 

El comando PAD permite la depu- 
ración de programas, de la que habla- 
remos más adelante, y el comando 
BLOAD ha sido también modificado. 

El 100% de los programas en BA- 
SIC que no utilizan POKES ni rutinas 
en ensamblador correrán en los SVI- 
-l- adaptador. La mayoría de los PO- 
KES MSX han sido correctamente 
instalados en los SVI + adaptador, así 
como las rutinas de la ROM normal- 
mente utilizadas por los programa- 
dores en BASIC. 

De este modo podemos asegurar 
que programando en BASIC no os en- 
contraréis con ningún Upo de proble- 
mas. 

Vamos ahora a echar un vistazo 
más de cerca a los puntos de incom- 
patibilidad con los MSX. 



ESTRUCTURA DEL APARATO. LOS 
PORTS DE E/S. 

El principal obstáculo para la total 
conversión de los SVT-328 en MSX es 
su configuración interna, que varía 
en los ports de entrada/salida. 

Al estar configurados de diferente 
forma estos ports, no funcionará en 



PERIFERICOS 

El adaptador permite, además, uti- 
lizar todos los periféricos del SVI- 
328 como si fueran los de un MSX. 
Vamos a hablar de ellos en particu- 
lar. 

El cassette que utilizan los SVI-328 
funciona, con el adaptador, como un 




el adaptador ningún programa (ni 
en ensamblador ni en BASIC) que uti- 
lice directamente los ports. Esto teó- 
ricamente no deberia constituir nin- 
gún problema, ya que las normas de 
programación de los MSX avisan de 
que si se tratan directamente los 
ports de E/S los programas no serán 
compatibles. 

Desgraciadamente muchos pro- 
gramadores hacen caso omiso a es- 
tos avisos, de modo que sus progra- 
mas no son compatibles, y funcionan 
sólo en algunos MSX. 

Pero el adaptador CCG ha dado un 
paso muy importante hacia la com- 
patibilidad, incorporando un nuevo 
proceso: la depuración. 

La depuración permite que funcio- 
nen sobre los SVI+ adaptador aque- 
llos programas que utilizan directa- 
mente los ports de E/S. Desgraciada- 
mente esta depuración no es posible 
con todos los programas; pero ofrece 
resultados óptimos con la mayor 
parte de los programas comerciales 
MSX. 

Gracias al adaptador, por tanto, se 
puede correr tanto el software en BA- 
SIC de los MSX ( 100% ) como los pro- 
gramas comerciales en C.M. (70%). 





Estos dos aparatos, 8PBCTBJLVTDEO 
318 y 328 respectivamente, que de al- 
gana manera fueron precursores de 
la norma MSX, podrán -gracias al 
adaptador de C.C.Q. 8&H— disfrutar 
por fin de las ventajas de la norma. 



mos encontrado algunos problemas 
a la hora de ajustar el azimut de este 
cassette, ya que por su peculiar dise- 
ño, que permite grabar audio y pro- 
gramas en dos canales separados, no 
fue posible desplazarlo todo lo nece- 
sario para cargar fácilmente todos 
los programas que sometimos a 
prueba con el adaptador. Sin embar- 
go, CCG incluye con el adaptador el 
esquema para utilizar cualquier otro 
cassette, aunque el original SVI fun- 
ciona bien con la mayoría de progra- 
mas. 

La impresora funciona de igual 
modo que en un MSX siempre que se 
disponga del adaptador Centronics 
para SVI-328/318. 

En cuanto a joysticks, no detecta el 
uso del segundo botón de disparo; 
pero muy pocos programas hacen 
uso de esta posibilidad. Se ha simula- 
do este segundo botón con la pulsa- 
ción de una tecla del teclado. 

El sistema de disco, del que habla- 
remos más adelante, es el único pun- 
to en que se rompe la casi total com- 
patibilidad MSX que hasta ahora ha 
presentado este aparato. 

Hemos de decir que no funciona- 
rán en los SVI + adaptador los perifé- 
ricos MSX (a excepción del joysticky 
del cassette), sino que los periféricos 
SVI funcionarán como si se tratase 
de MSX. 

EL SISTEMA DE DISCO 

El sistema de disco es el único foco 
importante de incompatibilidad. De- 
bido a las grandes diferencias de 
hardware existentes entre la unidad 
para SVI-328 y la de un MSX, no es 
posible (al menos por el momento) 
compatibilizar ambos formatos de 
disco. 

Mientras los MSX funcionan con el 
sistema operativo MSX-DOS, los SVI- 
+ adaptador continuarán funcionan- 
do sobre CP/M. Sin embargo, se podra 
acceder desde el BASIC a los ficheros 
CP/M, cosa que, sin el adaptador, no 
es posible. 

En resumen, y siguiendo con la 
unidad de disco, podemos decir que, 
aunque no permita la ejecución de 
programas MSX funcionará sin pro- 
blemas desde el BASIC. 

Hemos de decir, no obstante, que 
muchos de los programas de disco de 
los MSX han sido obtenidos del CP/M 
de los SVI. Es decir, si se consigue pa- 
sar los programas MSX-DOS a forma- 
to CP/M es muy posible que funcionen 
en su mayoría. 

Esto puede hacerse de dos formas: 
grabando los programas en cinta de 
cassette con un MSX y recuperándo- 
los desde el CP/M del SVI (es posible 
gracias al adaptador). 

La segunda opción consiste en con- 
seguir la unidad SVI-707 que permite 
pasar programas en formato MSX- 
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SVI-328Y318. 




DOS a formato CP/M. Esta unidad sólo 
funciona en los MSX 

¿Y LOS PROGRAMAS DE SVI? 

Muchos usuarios se plantearán el 
pasar los programas que tienen en 
formato SVI a formato SVI + adapta- 
dor (compatible MSX). El adaptador 
permite esta posibilidad, y en los ma- 
nuales que lo acompañan existe un 
programa que corrige las diferencias 
entre los diferentes BASIC. 

De este modo podrán utilizarse en 
modo MSX todos aquellos programas 
BASIC de los que se disponga en modo 
SVI. Para nadie será una ruptura, en- 
tonces d asarse al mundo MSX. 

LOS MANUALES 

Hemos destacado en varios puntos 
lo excepcional de estos manuales. Se 
explica en ellos con sumo detalle el 
funcionamiento del adaptador, las 
instrucciones nuevas para los SVI, 
los puntos de incompatibilidad y 
cómo solucionarlos, cómo pasar pro- 



gramas SVI a MSX, cómo cargar y co- 
piar programas en CM, e incluso la 
distribución de ports en MSX y SVI.. 

COMPATIBILIDAD 

Gracias a la depuración, la mayo- 
ría de los programas MSX correrán 
sin problemas en los SVI + adaptador. 
Hemos realizado un banco de prue- 
bas intentando ejecutar todos los 



ciones pertinentes para que funcio- 
nen correctamente. 

* CCG Sé?H dispone de un servicio 
de adaptación de programas, de modo 
que, cualquier usuario de su adapta- 
dor puede enviarles el programa que 
presenta incompatibilidad, encar- 
gándose CCG S&H de modificarlos 
para que funcione con el adaptador 
sin ningún coste adicional. 

* El 100% de los programas en BA- 
8IC funcionan correctamente con el 
adaptador. 



EN RESUMEN 

Es este el sueño de la inmensa ma- 
yoría de los* usuarios de SVI, poder 
entrar en el mundo de los MSX. CCG 
S&H ha conseguido lo que las multi- 
nacionales informáticas no han po- 
dido hacer; pero además, lo ha hecho 
a un precio francamente excepcio- 
nal: 

El PVP del adaptador, al 1 de enero 



programas aparecidos en los últimos del 87 era de 7840 p^g (IVA ^1^. 
números de BIT-BIT, obteniéndose 
los siguientes resultados. 



* Los programas MSX en cartucho 
no funcionan en los SVI, ya que no 
existe ranura para ellos. Esto se pue- 
de solucionar con el adaptador que 
comercializa Spectravideo, que per- 
mite que funcionen sin problemas. 

* El 60% de los programas comer- 
ciales en CM funcionaron sin proble- 
mas, y sin ninguna modificación. 

* Este porcentaje se eleva casi al 
80% si modificamos los programas 
siguiendo las instrucciones del ma- 
nual. 

* CCG S6PH incorpora una amplia 
lista de programas, con las modifica- 



do), y el del subsistema de disco op- 
cional de 1200 Ptas. 

Incluimos los datos de CCG SfifH 
para que estos usuarios puedan pe- 
dirles directamente el adaptador 
MSX 

CCG. S&H 
Larrasolo, 13 - 4B 
48902 - BARAGALDO - VIZCAYA - 
Tno: (94) 462 46 52 
(94) 440 29 99 
|Y por último! En la sección de tru- 
cos de este mismo número incluimos 
un interesante truco para los usua- 
rios del adaptador. 

Por Guillermo Almlrall 





Nombre y apellidos 



Calle 















Ciudad 
Provincia 



— 



Tel. 



SUSCRIBETE HOY MISMO SI 



QUIERES ESTAREN VANGUARDIA. 



La primera revista de MSX de España en tu domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además ta condición de sascriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 

MANHATTAN TRANSFER, SJL 



Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 

a partir del número 2 




FORMA DE PAGO: Mediante talón ban- 
cario a nombre de: 



TARIFAS: 
España por correo 



Cl. Roca i Batlle, 10-12 







Ptas. 3.880,- 
38 U8A$ 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE M AIUNC PUEDES ADQUIRIR 




ADAPTADORES TARJETAS 
INTELIGENTES 
BEE CARD Y SOFTCARD 





me 







Deja el manual de lado, inserta este breviario de 
basic en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 ptS. 




No te quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 



í 



V.'.'.'to, 



IM|HtMMI<ll t t 



••• •••• 



I 

m 

I I I 



• ••••»*•••••••••••• •'• 







........... 



CP 



Prov. 



Tel. 



1A HOY MISMO ESTE CUPON 

Nombre y apellidos 
I Dirección 
I Población 

I □ Tutor Basic Pías. 3.500- □ Adaptador Bee Card Ras. 2.850- 

I □ Sweet Acorn Ptas. 5.200- □ Backgammon Ras. 5.200- 

• □ Barn Stormer Ptas. 5.200- □ Chock'n Pop Ptas. 5.200 - □ Le Mans 2 Ras. 5.200 - 

| Gastos de envío por cada producto 100- pts. Remito talón bancario de pts. a la orden de Manhattan | 

Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. j 



\ 

\ 
I 

□ Adaptador Softcard Ptas. 2.850- I 

□ Shark Hunter Ras. 5.200- | 
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CALLXI 



■ 








La mayoría de los usuarios de ordenadores domésticos usan la cinta de magnetófono como medio de almacenamiento 
masivo. No obstante, día a día crece el parque de unidades de disco. Y es que, sin lugar a dudas, este periférico marca 

la diferencia entre el "poder" o tt no poder". 



VENTAJAS DE LOS DISCOS 

Los usuarios suelen comprar 
una unidad de disco con la sola 
aspiración de salvar la lenti- 
tud y falta de fiabilidad del cassette. 
Cuando se compara la velocidad de 
transferencia de la cinta (1200 ó 
2400 baudios) con la del disco 
(250.000 baudios), el nuevo posee- 
dor de una de estas unidades se felici- 
ta por su adquisición. Naturalmente 
estas razqnes son muy importantes, 
pero las diferencias que de verdad 
desmarcan a las unidades de disco de 
las cintas magnetofónicas son otras. 
Me estoy refiriendo a la posibilidad 
de emplear ficheros de acceso aleato- 
rio y la facilidad de ejecutar progra- 
mas que trabajan en "overlay". 

El poder manejar ficheros de acce- 
so directo (o aleatorio) es algo im- 
portantísimo. 

El uso de la cinta implica la necesi- 
dad de leer un fichero desde su co- 
mienzo para llegar a encontrar un 
dato determinado. En el disco, por el 
contrario, se puede acceder al dato en 
cuestión directamente. Ello es así 
porque los disquettes son soportes 
"formateados", es decir, su material 
magnético es marcado con unas divi- 
siones, de forma que su organización 
interna recuerda a la de la memoria 
central. Es posible, pues, hacer refe- 
rencia a un dato aislado o aun grupo 
de ellos de forma similar a como se 
hace con la RAM central. Natural- 
mente no es necesario preocuparse 
demasiado de cómo están distribui- 
dos los diferentes datos en el disco, 
puesto que el sistema operativo es ca- 
paz de encontrarlos por su cuenta, de 
igual manera que el intérprete BASIC 
localiza en la memoria una variable 
determinada. 

Imagina, sin más, lo que sería tra- 
bajar desde la cinta con un fichero de 
ciatos que tuviera, digamos, 100K. In- 
tentar dar de alta algún dato o hacer 
una modificación sería monstruoso. 
En contrapartida, hacer la misma 
modificación en un fichero contenido 
en un disquette es algo extremada- 
mente rápido. Ello no es debido sólo a 
la mayor velocidad del disco, sino a 
que no es necesario perder el tiempo 
leyendo desde el inicio del fichero, 
basta con acceder al dato directa- 
mente. 




La otra gran ventaja del disco es la 
posibilidad de emplear programas en 
"overlay". 

Si se compara la capacidad de al- 
macenamiento de la RAM central 
con la de un disquette, se pone de ma- 
nifiesto la gran superioridad de éste. 

Los buenos programas suelen ocu- 
par más espacio del que hay disponi- 
ble en la RAM. Sin embargo, y dado 
que los programas pueden partirse 
en trozos más pequeños, es muy có- 
modo mantener en la memoria úni- 
camente la parte que se está utilizan- 
do. Cuando sea necesario otra por- 
ción del programa, se cargará desde 
el disco, borrando a la que ya no se 
usa. 

Esta técnica de mantener en la 
RAM sólo la parte que se emplea en 
cada instante, recibe el nombre de 
"overlay" (solapamiento) y viene 
usándose desde los primeros tiempos 
de la informática. 

Sin ir muy lejos, han aparecido re- 
cientemente en el mercado algunos 
juegos para MSX2 que ocupan en el 
disco (discos, en este caso) más de 
1000K ( 1M byte), la mayor parte de 
los cuales corresponden a pantallas 
gráficas que son cargadas a medida 
que transcurre la acción de juego. 



NO TODO SON VENTAJAS 

Además de las ventajas anteriores, 
el uso de una unidad de discos da ac- 
ceso al MSXDOS, lo que implica tener 
la posibilidad de usar una amplia bi- 
blioteca de lenguajes y utilidades rea- 
lizados para el sistema MSX o para el 
CP/M. De esta forma, es posible em- 



plear compiladores BASIC, PASCAL, 
C, COBOL, MACRO ENSAMBLADOR, 
etc. y aprovecharse de utilidades 
como DBASE II, MULTIPLAN, y mu- 
chas otras. 

Sin embargo, no todo son ventajas. 

Los usuarios del MSX no suelen ca- 
racterizarse por su alto poder adqui- 
sitivo. Puesto que los programas en 
disco son considerablemente más ca- 
ros que los de cinta, es corriente com- 
prar las versiones en este último so- 
porte. Los problemas empiezan 
cuando se intentan pasar a disco. 
Hay que tener en cuenta que el soft- 
ware se entrega protegido y, por si 
ello fuera poco, muchos programas 
dejan de funcionar por el simple he- 
cho de tener una unidad de discos co- 
nectada. 

Existen soluciones a estos proble- 
mas, pero requieren sólidos conoci- 
mientos de la máquina, para llevar a 
cabo las adaptaciones "a mano" y una 
auna. 

En fin, poco puedo ayudaros en este 
tema, salvo, quizá, diciendo que una 
buena forma de eliminar los proble- 
mas de tener el disco en línea es des- 
conectarlo, manteniendo pulsada 
una tecla "SHtFT" mientras se en- 
ciende el aparato. Por otra parte, pue- 
de que os baste mantener pulsada la 
tecla "CTRL". Ello elimina el emula- 
dor de la segunda unidad (B:) y deja 
libres unos 1500 bytes. Naturalmen- 
te, a partir de entonces, cualquier in- 
tento de acceder al "drive" B: será cas- 
tigado con un "Bad drive ñame". 

EL AUSTERO "FILES" 

El "MSX-DSK-BASIC" está conteni- 
do en los cartuchos contróladores de 
disco y consiste en unos cuarenta 
nuevos comandos, o ampliaciones de 
los ya existentes en el BASIC están- 
dar. El BASIC de disco dispone de todo 
lo necesario para manejar con efi- 
ciencia este periférico. Cuenta, como 
no, con muchas facilidades para el 
empleo de ficheros aleatorios. La sin- 
taxis usada resultará familiar a to- 
dos los usuarios acostumbrados a 
trabajar con ordenadores más gran- 
des (tipo PC-IBM), puesto que es ca- 
racterística de todos los BASICs es- 
critos por Microsoft. Es importante 
resaltar este punto, ya que es en las 
rutinas delicadas, como las usadas en 
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los controladores de disco, donde se 
nota la mano de una gran compañía. 
Si se compara el sistema MSX con 
otros ordenadores similares (el 
AMSTRAD 6128, por ejemplo) 
nota en seguida la mayor 
en el manejo del disco y la gran ven- 
taja de poder usar ficheros aleato- 
rios. 

Uno de los pocos "peros" que puede 
reprochársele al BASIC de disco es 
que el comando "FILES" resulte tan 
parco, desaprovechando las facilida- 
des que da el sistema operativo para 
grabar la fecha y la hora y conocer la 
cantidad de memoria disponible en el 
disco. 

Este inconveniente ha de salvarse 
construyendo una rutina que permi- 
ta visualizar o imprimir un directo- 
rio más amplio. 



DIRECTORIOS AMPLIOS 

La rutina que sigue permite mos- 
trar por pantalla o impresora un di- 
rectorio amplio en el que aparecen el 
nombre, la extensión, la longitud, el 
día de la semana, la fecha y la hora de 
grabación de un fichero; así como el 
espacio disponible en el disco y el nú- 
mero de ficheros que contiene. La fi- 
gura adjunta muestra uno de estos 
listados obtenido directamente de la 
impresora. 

Lamentablemente, y por falta de 
espacio, no es posible incluir el lista- 
do fuente de ENSAMBLADOR, limi- 
tándonos por tanto al cargador de lí- 
neas DATA. Este cargador es diferen- 
te al que suele aparecer en estas pagi- 
néis. Como resulta más largo de lo ha- 
bitual, he creído prudente incluir una 
suma de control cada diez bytes de da- 
tos. Si esta suma falla, el programa 
dará un aviso de error e indicará la 
presunta línea errónea. 

Si todo marcha bien, el mismo car- 
gador grabará el código de la rutina 
en forma de bytes, de suerte que su 
empleo no interfiera con los progra- 
mas BASIC que pudieran haber en la 
memoria. 

USO DE LA RUTINA 

La rutina empieza en la dirección 
SPHCOOO y tiene algo menos de 900 
bytes. Como se graba con el comando 
BSAVE, habrá de ser recuperada con 
BLOAD. 

Una vez esté cargada en memoria, 
lo primero será inicializarla con: 
"DEFUSR=#HC000". A continua- 
ción, se puede ver el directorio de un 
disco haciendo: "PRINT USR (pará- 
metro)". El parámetro anterior ha de 
seleccionarse de la siguiente forma: 0 
para el disco por defecto, 1 para el 
disco A:, 2 para el disco B:, C para el 
disco C:, etc. 

El disco por defecto corresponde al 



"drive" A:, cuando se inicializa la má- 
quina; o cualquier otro, si se ha cam- 
biado desde el MSXDOS. Asimismo, es 
posible modificar el disco por defecto 
poniendo un parche desde el BASIC 
en la variable del sistema situada en 
SPHF247. El número del drive desea- 
do ha de colocarse con POKE, usando 
0 para el disco A;, 1 para el B:, etc. 

A título de ejemplo, la orden 
"PRINT USR (2)" fuerza a la rutina a 
mostrar el directorio del disco "B:". 

Por otra parte, si lo que se desea es 
imprimir un directorio, hay que aña- 
dir 256 al parámetro que identifica al 
"drive": 

PRINT USR ( 1 +256). 

Lo anterior mostrará en pantalla e 
imprimirá a la vez el directorio del 
disco A. 



CABOS SUELTOS" 

La rutina requiere que el ancho de 
la pantalla sea, al menos, de 40 co- 
lumnas. Digo "al menos" porque pue- 
de ser empleada sin problema alguno 
en un MSX2. 

Si, cuando se está escribiendo el di- 
rectorio, se pulsa una tecla, el listado 
se detiene hasta una nueva pulsa- 
ción. De cualquier forma, la rutina 
para cuando ha mostrado 24 líneas, y 
espera que se presione una tecla para 
continuar. 

Es posible abortar la visualización 
o impresión del directorio pulsando 
simultáneamente las teclas "CTRL" y 
"STOP". En este caso, la rutina volve- 
rá al BASIC y aparecerá el inefable 
"Break". 

Si todo va bien, al final del listado se 
mostrarán el número de ficheros 
contenidos en el disco y el espacio 
disponible en él. Por cierto, nadie 
debe asustarse si la cantidad de espa- 
cio libre suministrada por la rutina 
es mayor a la que ofrece el comando 
BASIC "DSKF ( )", porque este último 
devuelve el espacio no utilizado em- 
pleando el "cluster" como unidad (un 
cluster= 1K), y, como sabes, este co- 
rresponde a 1024 bytes. 

Tampoco debe extrañar que .algu- 
nos ficheros carezcan de hora, pues- 
to que los MSX1 no están dotados de 
reloj , y omiten la hora al grabar los 
programas. 

La mayor ventaja de la rutina es 
que no interfiere con los programas 
en BASIC (salvo con los que lleguen a 
SPHC000). Por otra parte, es reco- 
asignar una tecla de fun- 
para realizar la llamada siste- 
máticamente. Vale algo como: 
KEY1,CHR$(12)+"? 
USR(0)"+CHR$(13) 
Una última sugerencia. Esta rutina 
puede guardarse perfectamente en la 
RAM de vídeo. Si tuviste la paciencia 
de teclear el disco-VRAM que apare- 
ció en esta sección el mes pasado, po- 




drás traerla a la memoria sin necesi- 
dad de cambiar el disco y de sufrir la 
pequeña espera de la carga. 



LISTADO 



10 X=4HCO0O 

20 F0RL=80T0920STEP 10 

30 FORY=0TO9:REA0 V* 

40 POKE X , V AL < ** fcH " + V$ ) : S=3+PEEK ( X > ; X* X 

♦1 

50 hEXT 

60 REAÜ V*: REAO W:$lsVALC4H"m>*2 
SéiVALriOVDÜF SlOSTHEMBEEP:CLS:P 
RINT'ERROR EN LA UN£A';i:ENQ 
70 S=0:NEXT 

80 0ATAE0,73,85,C3,3A,F9,F7,32,87,C3,4 
E,06 

90 0ATA06 l 0C,21 i 4F,C3,3A t F8,F7,77,23,0 
8 04 

1¿0 DATA36,3F,10,F8,70,48,E0,43,7E,C3, 
A9.04 

UO 0ATAE0,43,7F,C3, 00,00,00, 00, EA, 01, 
83,06 

120 0ATACD,0i,C3,ll,4F,C3,0E,ll,CD,0F, 
7F,04 

130 DATAC1,C2,12,C3,3E,0C,C0,A2,00,C0, 
OE,04 

140 0ATAAF,C1,2A,A5,C3,3A,A7 ( C3,C¡),1A, 
80,05 

150 0ATAC2,3E,20,C0,A0,C2,3A,A2,C3,C6, 
89,05 

160 0ATA3F,F5,3A,A1,C3,F5,E6,1F,6F,20, 
68,05 

170 QATA26,00,Fl,lF,lF,lF,lF,lF,E6,0F, 
A7,02 

180 0ATAU ,07,C2,C0,F8,C2,Fl,06,04,4F, 
48,06 

190 0ATAU,38,00,E7,79,C6,03,30,0l,3C, 
£2,02 

200 0ATAC6,3F,CB,3F,5F, 19, 11,60,01,79, 
34,03 

210 0ATA3C3D, 28,03, 19,18, FA, 44, 40, 21, 
81,02 

220 0ATAO7,0O,C0,B6,C2,70,87,8S,4F,2l, 
45,04 

230 0ATAE3,C2,09,06,03,7E,C0,A0,C2,23, 
87,04 « 
240 0ATA10,F9,3E,20,C0,A0,C2,3A,A1,C3 ) 
34,05 

250 0ATAE6 l lF,C0,97,Ci,C0,92,Cl,3A 1 A2, 
26,06 

260 0ATAC3, CB, 3F, 3A,A1 , C3 . iF , 1F , iF , 1F , 
E7,03 

270 0ATA1F, £6, 0F, 00,97,01, C0,92,C1,3A, 
93,05 

280' 0ATAA2,C3,CB,3F,C6,50,FE,64,38,02, 
21,05 

290 DATA06, 64,00,97, 01, 3E, 20, 00, A0, 02, 
EC05 



CALLXI 



300 OAT A2A , 9F , C3 » CB « 3C t C6 , 10 , CB , 3C , C6 , 
40,05 

310 0ATA10, 08,30,08,10,08,30,06,30^, 
CB,04 

320 DATAB5,B4,28,2l,lE, 00, 70,93,28,04, 

17,03 

330 0ATA5F, 30, 05,50, 16,61, 18,02,16,70, 
07,02 

340 0ATA7B I CD,97,C1,3E,3A,CD,A0,C2,70, 
C4,05 

350 0ATACD,97,C1,7A,CD,A0,C2,CD,F1,C1, 
40,07 

360 0ATA11 1 4F,C3,0£,12,C0,0F,C1,CA,3B, 
B5,04 

370 0ATAC0.32, 80,03,21, 24, C3, 22, 83, 03, 
A5.04 

380 0ATA3A,7F,03,6F,AF,67,CD,1A,C2,21, 
08,04 

390 0ATA38, 03,22, 83, 03, 2A,81, 03,29, 29, 
23,04 

400 DATA7C,65,2E,00,C0,1A,C2,3A,7F,03, 
34,04 

410 0ATA30,3E,53,2Q,02,3E,20,2l,33,C3, 
65,02 

420 0ATA77,C0,Q2,0l,2l,27,C3,3A,87,C3, 
66,05 

430 0ATAB7,28,ll,C0,83 ) Cl,£5,06,27 1 7£ r 
91,04 

440 OATACO,AF,C2,23,lO,F9,C0,88,Cl 1 £l, 
61,06 

450 0ATA3E,0A,C0,A2,00,06,27,7£,C0,A2, 
01,03 

460 DATAOO,23,10,F9,C3 I 02,C1 1 3E ( OA,CO, 
97,04 

470 0ATAAF,C2,3£ 1 OD,C0,AF,C2,3£,0A / C3 l 
05,05 

480 OATAAF,C2,3E,20,C3,AO,C2,06,00,F£, 
05,05 

490 0ATA0A,38,05,06,0A,04,18,F7,4F,78, 
01,03 

500 QATAC6,30,CO ( AO, 02,79, C6,30,C3,A0, 
F7.05 

510 0ATAC2.06, 08, 21, 7F, 03,34, 21, 89,03, 
04,03 

520 0ATA7E.C0, AO, 02,23, 10,F9,3£,2£, 00, 
12,05 

530 OATAAO , 02 , 06 , 03 , 7E , CD , AO , 02 , 23 , 1 O , 
48,04 

540 0ATAF9, 09,00, 90, 00,08, 00, 56, 01,00, 
£4,05 

550 0ATA9F,00,00,B7,00,0A,17,C3,C9,E5, 
85,05 

560 0ATA05,C5,C0,70,F3,0l,0l,El,B7,C9, 



570 MTAil > 88 l C3,0£,l"A I i8,E£,3A,7E,C3, 
05,04 

580 0ATA06, 17, 20, 07,30, 32, 7E.C3, 00,02, 
63,04 

590 0ATAC1,C0,0£,C1,21,7£,C3 I 34,3E,00, 
FE, 04 



COMMAND .COM 
KSXDOS . SYS 
TURBO . COM 
TURBO . KS G 
TURBO . OVR 
DISKCOPY. COK 
DISKCOM . COM 
TRACE . PAS 
GEN 

GEN 

GENMSX2 

0ENKSX2 
DIR 

DIR 

DIR 

8068 



BíN 
BIN 



GEN 
BIN 
BAS 
PRN 



6656 
2432 
30464 
1536 
1024 
512 
5248 
5999 
71 
10081 
10079 
74 
5120 
868 
4081 
12136 



LUN 
VIE 
DOM 
DOM 
DOM 
VIE 
VIE 
LUN 
DOM 
DOM 
JUE 
JUE 
LUN 



16 F 



LUN 
JUE 



02 
23 
OI 
OI- 
01- 
29- 
22- 
25- 
07- 
07- 
11- 
11 
13 
13 
13 
23- 



09 
08 
OI 
OI- 
-01- 
-08- 
-11- 
-08- 
-09- 
-09- 
-09 
09 
04 
04 
04- 
04- 



-85 
-85 
•84 
■84 
84 
86 
-85 
-86 
-86 
-86 
-86 
-86 
•87 
87 
87 
87 



10: lOp 
09: 29p 



OS 



10: 
05: 
12: 
05: 
05: 
OI; 
01: 
05: 
05: 
05: 
02: 



02a 
17p 

38a 
47p 
47p 
47p 
50p 
Olp 
07p 
09p 
06p 



600 0ATACD,A0,02,3E,0A,C3,A0,C2,3E,20, 
FA.04 

610 DATAC0,A0,C2,3E,20,03,A0,C2,£B,21, 
BE, 05 

620 0ATA74,C3,73,23,72,06,05,23,77,AF, 
93,03 

630 OATA10 I FB,06,18,C5,21,77,C3,06,04, 
53,03 

640 0ATA7E,E6,0F I FE,05,38,04 1 7£,C6,03, 

F9.03 

650 0ATA77,7E,£6,F0,FE,50,38,04,7£,C6, 
99,05 

660 0ATA30, 77, 23, 10, £7, 21, 74, 03, 06,26, 
0A 1 04 

670 OAT A23 , CB , 16 , 23 , CB , 1 6 , 23 , CB , 16 , 23 , 
2F,03 

680 DATACB,16,23,CB, 16,23,08, 16,01, 10, 
6 A, 03 

690 0ATAC7,01,08,04,21,7A,03,7E,1F,1F, 
EE,02 

700 DATA1F,1F,CQ, 79, C2.7E, 00,79, C2.2B, 
F7.04 

710 0ATA10,F1,C9,£6,0F, 28,10, 0E,01,C6, 
08,03 

720 0ATA30.57, 79, FE, 07,08, 3A.80, 03,87, 
01,05 

730 DATA7A,CA,A0,C2,EB,2A,83, 03,77,23, 
96, OS 

740 0ATA22,83,C3,EB > C9,00,28,E1,3E,20, 
90,04 

750 0ATA18,E1,C5,4F,3A,87,C3,B7,79,04, 
35 05 

760 0ATAAF,C2,79,C1,03,A2,00,C0,A5,00, 
82,05 

770 OATAOA,20,C3,09,EB,21,00,00,78,06, 
10,04 

780 DATAIO.CB, 11, 17, CB, 15,08, 14,38,00, 
06,03 

790 0ATAE0,52,30 1 01,19,3F,CB,11,17,10 1 
CB.02 

800 0ATA£F I C9,B7,ED,52,18,F5,1F,1C,1F I 
15,05 



810 QATAÍE,1F,1E,1F,1F,1E,1F,1E,1F,44, 
57,01 

820 0ATA4F, 40,40, 55,4E,40,41, 52,40,49, 

01,03 

830 0ATA45,4A,55,45,56,49,45,53,41,42, 

E3.02 

840 0ATA30,08,EB,4E,23,EB,09,18,F7,0E, 
72,04 

850 QATA1B,3A,4F,C3,5F,CD,7D,F3,3C,CA, 
09,05 

860 0ATA1C,C3,22,81 I C3,C9,1E,35,C3 I 6F, 
93,04 

870 0ATA40 , £0 , 78 , 85 , 03 , 09 , 1 E , 38 , 1 8 , F4 , 
18,05 

880 0ATA1E, 13, 18.F0, 20,20,20,20,20,20, 
F9.01 

89O-DATA20,20,46,49,43,48,45,52,4F,S3, 
93,02 

900 0ATA20,20,3C,3E, 20,20, 20,20,20,20, 
7A,01 

910 0ATA20, 20, 42,59, 54, 45,53, 20, 40, 49, 
70,02 

920 0ATA42.52, 45, 53,20,20, 20,00,00,00, 
80,01 

930 B£EP:CLS:PRINT"0ATAS CORRECTAS" 
940 PR I N T : PR l NT " PREPARA UN DISCO Y PUL 
SA UNA TECLA" 

950 Zi=INKEY$:IF Z$=""THEN950 
960 BSAVE"DIR",*HC000,aHC35C 
970 BEEP:CLS:PRINT"Para usar la rutina 
iniciaiizala con:" 

980 PRINT:PRINT"8LQA0"iCHR$(34);"DIR"; 
CHRt(34); 

990 PRINT":0EFUSR=sHC000" 
1000 PRINT:PRINT"A continuación haz:" 
1010 PRINT:PRINT"PRINT USR(paráietro). 
El valor del parátetro es explicado e 
n el texto. 

1020 PR I NT I PR 1 NT :PRI NT "Recuerda que el 
ancho de pantalla ha de ser, al teños 
de 40 COLUMNAS.* 

<J86 r 
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NUMEROS ATRASADOS • NUMEROS ATRASADOS 




m ■ ■ s k 



MSX 2/ Edición 
N.°* 1,2,3,4 - 450 PT AS 



TTpg 



7 mM. 



MSX 2 / Edición 

N. ot 5.6.7.8 - 475 PTAS 



MSX 2. a Edición SI 5 
N.° 9,10,11,12,13 PTAS. 





MSX14 160 PTAS 



MSX15 175 PTAS. 



MSX16 175 PTAS 




MSX 17 175 PTAS 



MSX18 175 PTAS 




MSX19.20 350 PTAS 



MSX21 175 PTAS 




MSX CODIGO 
MAQUINA - 275PTAS 



MSX22 175 PTAS 



MSX23 175 PTAS 




MSX?J 17SPTAS 



MSX25.26 350 PTAS 





, 



MSX 28 225 PTAS 








MSX 30 225 PTAS. 



LA I a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 

-DPTO. SUSCRIPCIONES CA Roca i Batlle, 10-12, 08023 Barcelona. 



Deseo recibir los números 

para lo cual apunto talón del Banco 

Nombre y apellidos 

Dirección 



■ 



......................... 



n.< 



— ■ 



de STJPERJUEGOS EXTRA MSX 

a la orden de Manhattan Transfer, SJL 



.... 







• 



•• •••• • 









Tel.: 



Población 



........... «»<...«..<»..••.•••.••••...•......••.••..•.•»•. .... .......... 



DP. 



Prov. 



«No se admite contrarreembolso. 
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3? GRAN 



PROGRAMA 



CONCURSO 



DEL AÑO 




CREA Y ENVIANOS TU PROGRAMA 
HAY* PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS 
MAS DE UN GANADOR QUE OPTARA 
UNA FABULOSA UNIDAD DE DISCO 



1 Podrán participar todos nuestros lec- 
tores cualquiera sea su edad, con uno 
o más programas escritos en BASIC 
MSX o código Máquina. 

2 - Los programas se clasificarán en tres 

categorías: 

A— Educativos 

B — Gestión 

C — Entretenimientos 

3 - Los programas, sin excepción, debe- 

rán ser remitidos grabados en casset- 
te virgen, debidamente protegida den- 
tro de su estucha plástico en el que se 
insertará el cupón-etiqueta que apa- 
rece en esta misma página, debida- 
mente rellenado. 



4 - No entrarán en concurso aquellos 

programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5 - Junto a los programas se incluirán 

en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posibles 
y todos aquellos comentarios que el 
autor considere de interés. 

6 - Todos los programas han de estar es- 

tructurados de modo claro, separando 
con REM los distintos apartados del 
mismo. 




7 - MSX 



otorgará los siguientes 



CORTAR O FOTOCOPLAJR 



1 




CATEGORIA 



INSTRUCCION DE CARGA 

AUTOR: 
EDAD: 

CALLE: 



N 



CIUDAD 

N.° DE RECEPCION 



DP 



•••••••• 



L 




-J 



8 



premios: 
AL PROGRAMA MSX EXTRA DEL 

AÑO 

Una Unidad de disco 
valorada en más de 80.000 ptas. 
Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los siguien- 
tes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9 - MSX EXTRA se reserva el derecho de 
publicar fuera de concurso aquellos 
programas de reducidas dimensiones 
que sean de interés, premiando a sus 
autores. 



FALLO Y JURADO 



10 - Nuestro departamento de Programa- 

ción analizará todos los programas 
recibidos y hará la primera selección, 
de la que saldrán los programas que 
publiquemos en cada número de MSX 
EXTRA que pasará a ostentar la pro- 
piedad de los mismos. 

1 1 - Los programas recibíaos no se devol- 

verán, salvo que el autor lo requiera 
expresamente. 

12 - La elección del PROGRAMA MSX EX- 

TRA DEL AÑO se hará £or votación de 
nuestros lectores a través de un bole- 
tín que se publicará en el mes de octu- 
bre de 1987. 

13 - El plazo de entrega de los programas 

finaliza el 15 de noviembre de 1987. 

14 - El fallo se dará a conocer en el núme- 

ro del mes de enero de 1988, entre- 
gándose los premios el mismo mes." 



REMITIRA: 
CONCURSO MSX 
EXTRA 

RocaiBatlle, 10-12 
bajos 

08023 Barcelona 
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Programa de juego realizado 
por Rodolfo Müller 



■ I || ' || • I» || I! f| 1 1 - II II II 
Debéis escapar del laberinto sin chocar con sus paredes, que os producirán la muerte instantánea. Debéis tener un 

pulso firme y ganas de pasar las numerosas pantallas de este juego. 



— 



10 

20 » 

30 » ALERTA ROJA 
40 9 

50 » Rodolfo Müller 
60 ' 

70 » Jerez / Har. 87 
B0 ' 
90 



y - 



110 ' tiltil Presentación lililí 

120 COLOR 13, 1, 1 :SCREEN 2,2,0 

130 CL0SE:0PEN'6RP:-AS#l 

140 LINE (S,0)-(2S1,192),10,B 

1S0 A*= a C8S4U15L10D10R10Li0D5' 

160 R«= " C8H7L3R 1 0U8L 1 0D 1 5 " 

170 PRESET (40, 30) :DRAII A$: DRAWBH55, 30 

C8S4L10U1S" 

180 DRAITBH70, 30C8L10U7R7L7U8R10' : PRES 
ET(8S,30):DRAH R$: DRAWBH95, 30C8U15L5R 
10' 

190 PRESET(115,30):ORA« A$: PRESET ( 170, 
30):DRAH R$:DRAH'BN185,30C8L10U1SR10D1 
5' 

200 DRAWBH200, 30C8U15D15L10U4' : PRESET 
(215,30) :DRAN Al 

210 PLAY'eb-b-gfccc8f8o3fHaccccdefedc 
ce" 

220 DRAN-BH38, 110C12U5R2U5E10R35E10U25 
E5R3SF15R60DSL60D10R5O10R3SF1SD1061SL1 
35H15U5L2' 

230 PAINT(150,110),12 

240 DRAM" BH 1 10 , 65C 1 R5U5R5D5R5D5L5D5L5U 

5L5U3V 

250 PAINT(118,68),1 
260 LINE (95,80)- (155,80), 1 
270 LINE(B5,89>-(155,89),1 
280 LME(40,ltf)-(210,115),l 
290 fOR X=65 TO 215 STEP 30 

300 CIRCLE(X,124),3,1,„1.4 
310 HEXT X 
320 » 

330 • lililí Sprites lililí 
340 FOR Y«l TO 11 




350 FOR M TO 32 

360 READ A$:S$=S$+CHR$(VALCW'+A$)) 

370 NEXTX 

380 SPRITE$(Y)*SI 

390 S$=":NEXT Y 

400 IF PLAY(l) THEN 400 

410 ' 

420 » lililí Selección lililí 

430 PRESET(50,150):PRINTI1,'T -> TECLA 

DO" 

440 PRESET(50,162):PRINT01,'J -> JOYST 
ICK' 

450 PRESET(50,174):PRINTI1,'I -> INSTR 
UCCIONES":A$s" 

460 Z$(0)*'< SPACE > B lZIM«' < FIRE > 

■ 

470 At>INKEY$ 

480 IF A$**T" OR A$="f THEN Z*0:6OTO 
520 

490 IF Af«T OR A$«y THEN Z*1:60T0 
520 

500 IF Af="I" OR A$«V THEN 3170 

510 60T0 470 

520 DEFINT X,Y,H,N,P 

530 P*3:NI*l:NV=6:PU=0:SN$«'b-b-ecaaac 

f-cb-cfff" 

540 ' 

550 ' Narco pant. 1 y 2 
560 ' 

570 PA=1:PC=0 

580 IF NI>3 THEN P=6:NV=NV-2 
590 COLOR l,l,l:SCREEN 2 
600 PLAY SN* 

610 LINE(3,15)-(253,180),13,BF 
620 LINE(8,20)-(248,175),1,BF 
630 IF PA=2 THEN 740 

650 ' lililí PANTALLA 1 lililí 

660 CL0SE:0PEN"6RP: ( ASI1 

670 COLOR 4: PRESET (7,2) :PRINTtl , ■ PANT 

.'}PAj' NIV.";NI;' VIDAS:';NV 

680 LINE ( 14, 25) - (242, 170) , 12, BF 

690 0RAN'BH225, 171C1S4L25U51L25625L35D 

10L70U30L15U75R60F25R10E25R50U26R25" 








700 DRAITC1D51L65625L30H25L25D25R15D30 
R20U10R50E25R60D76" 
710 PAINT(120,90),1 
720 N=205:N=154:6OTO 830 
730 » 

740 ' MHHHH PANTALLA 2 MMM 
750 COLOR 4:PRESET(7,2):PRINTtl, " PANT 
. , ;PA;• NIV.';NI; n VIDAS:';NV 
760 LINE(14,25)-(242,I70),8,BF 
770 DRAtCBH235, 171C1S4L25U21H25L10S25L 
60U 1 0L50U25L 10U75R60F25U25R75D 1 0R 1 0U26 
R25' 

780 DRA«'C1O51L60U10L25Ü25L35H25L25D25 
R10D25R50D10R25E25R30F25R15D46' 
790 PAINT(120,80),1 
800 N=215:H=154 
810 ' 

820 ' lililí Hoy. 
830 PUT SPRITE0,(N,H),5,1 
840 COLOR 10:PRESET(92,184):PRINT01,ZI 
(Z) 

850 IF STRIB(Z)<>-1 THEN 850 
860 LINE(90,1B2)-(180,192),1,BF 
870 PUT SPRITE0,(N,H),10,1 
880 IF P0INT(N+4,H*1)<>1 THEN 1040 
890 IF P0INT(N*12,H*l)Ol THEN 1040 
900 IF P0INT(N*3,H+15)<>1 THEN 1040 
910 IF POINT (N*l3,h>15K>l THEN 1040 
920 D=STICK(I) 

930 IF D=l THEN M=H-P:60T0 B70 

940 IF 0=2 THEN N=N*P:H=H-P:60T0 870 

950 IF ü=3 THEN N=N*P:60T0 870 

960 IF D=4 THEN N=N+P:M1*P:60T0 870 



\ 












970 IF D=5 THEN M=I1+P:G3T0 870 

980 IF D=6 THEN N=N-P:M=M*P:GCT0 B70 

9*0 IF D=7 THEN N=N-P:GQTO 870 

!000 IF D=8 THEN N=N-P:H=x-P:G0T0 870 

T010 Í1=H-PM:G0TC 670 

1020 » 

1030 ' *#»«## Cheque mm 

1041 If IK30 AND PA=1 THEN PUT SPRITE 

0,(0, 205), 0,i:PA=2:PU=PU*NI$5:GOTO 590 

1050 IF 11(30 ANO PA=2 THEN PUT SPRITE 

0,(0, 209), 0,i:PA=3:Py=P'>NI!8:GQT3 113 

0 

1060 FGF. X=l TO 15 STEP 2 
1070 BEEP 

1080 PUT SFRITE0.ÍN,fl).X,l 
im FOR Y=l TO 100: NEXT Y 
1100 NEXT X 

1110 FUT 5PRITE0,Í0,209),0,1 

1120 IF NV=0 THEN 2980 

1130 Ny=NV-l:LINE'210,l'-!240,12},l.BF 

:COLQF 4jPRESET(2i8,2):PRIKT#t,l»V | 
1110 IF FA=1 THEN 720 
1150 IF FA=2 THEN 800 
1160 ' 

1170 * mm PANTALLA 3 lf*M« 
1190 P=P<2*1:CL0SE:CPEN"GRP: B ASI1 
1190 CLS:C0L0F: 13, ,8:PRESET(7,2> :PRINT 
II," PANT.'jPA;' 1 NIV.'jNI;" VIDAS:'; 
NV 

1200 PLAV 3N* 

1210 LINE(3,15)-(253,180S5.BF 

1220 LINE'.8.20)-«:248,175),1,BF 

1230 DRAWBW30.30C13S3R16E2RIF2D2o2LlH 

2U2L2E4F1F402G4L1H4L13D2L1U2L2U2" : PC=0 

1240 A1$="C12R8F3C2F2D3F2D3G2L2G3L3D10 

L2U10L3H3L2H2U3E2U3E2U2E3' 

1250 A2$="C12R4F2D2F2D3F2D462D3G3L2D10 

L2U10L2H3U3H2U4E2U3E2U2E2' 

1260 A3$="C12RBF2R4F4D362L3G2L3G2L2D10 

L2U10L2H2L3H2L3H2U3E2R2E2R4E2" 

1270 A4$= B CBP4F2R4F3D3G3L2G2L12H3L2E2U 



2E2R3E4 1 



1280 DRAW°S2*:PRESET(30,60):DRAW A4$:P 
fiINTí82,62),8 

1290 PRESET- 180,40) :DRAH A3$:PAINTU80 
,42), 12 

1300 DRAWS3":PRESET(40,100):DRAN Ai$: 
PAiNT(42,102),12:PRESET(230,120):DRAW 

A2«:PAINT(232,122),12 

1311 DRA« n S4 , :PRESET(130,140):DRAW Al$ 

:PAINT(132,H2),12 

1320 IF PLAY(l) THEN 1320 

1330 ' mm Mov. sprites mm 

1340 ON SPRITE GOSUB 1860 

1350 N=200:H=155:X1=60:X2=130:X3=170:X 



4=220:X5=1?0:X6=70 
1360 PUT SPRITE0,(N,m,10,l 
1370 X1=X1-P 

1380 IF XK10 THEN Xl=235 
1390 PUT SPRITE 1 , • X 1 , 25) , B, 2 
1400 PUT SPRITE 2, (XI, 89). 13,3 
1410 PUT SPRITE 10, CXI, 153) ,12,2 
1420 X2=X2+P 

1430 IF X2>235 THEN X2=10 
1440 PUT SPRITE 3. (X2,41) , 12,5 
1450 PUT SPRITE 4, (X2,105),8,4 
1460 X3=X3-P 

1470 IF X3<10 THEN X3=235 
1480 PUT SPRITE 5, 1X3,571 , 13,2 
14*0 PUT SPRITE 6,1X3,120), 14,3 
1500 X4=X4+P 

1510 IF X4>235 THEN X4=10 
1520 PUT SPRITE 7, (X4,73) , 14,5 
1530 PUT SPRITE 8, 'X4, 137), 4, 4 
1540 IF PA=3 THEN 1610 
1550 X5=X5-P 

1560 IF X5«'10 THEN X5=235 
1570 PUT SPRITE 9,(!5,tt)jll v é 
1580 X6=X6*P 

15°0 IF X6>235 THEN X6=10 
1600 PUT SPPFE 11, (X6, 105), 8," 
1610 D=STICK(Z) 
1620 IF D=l THEN 11=11-5 
1630 IF D=2 THEN N=N*5:H=M-5 
1640 IF D=3 THEN N=N+5 
1650 IF D=4 THEN N=N+5:M=M+5 
1660 IF D=5 THEN !1=t1+5 
1670 IF D=6 THEN N=N-5:H=M*5 
1680 IF 0=7 THEN N=N-5 
1690 IF 0=8 THEN N=N-5:M=H-5 
1700 IF N<10 THEN N=10. 
1710 IF N/235 THEN N=235 
1720 IF STRIG(Z) THEN 1770 
1730 IF RM53 THEN H=155 
1740 IF H<25 THEN 11=25 
1750 SPRITE ON 
1760 GOTO 1360 
1770 ' 

1780 ' HUI! Recogida mm 

1790 IF PA=4 AND M<33 AND N>25 AND N<3 

6 THEN BEEP:PU=PU*NI$15:60T0 2070 

1800 IF PC=0 AND H<35 AND N>20 AND N<4 

5 THEN LINE(25,25)-(62,38),l,BF:PC=l:B 

EEP:DRAW-BH210,30C12S3R5U2L4D2R14D19L1 

5U19':PU=PU*NIt3:60T0 1360 

1810 IF PC=1 AND M<45 AND N>195 AND N< 

220 THEN PC=2:LINE(208,25)-(240,55),1, 

8F:BEEP:ÜRAtTBM50,155C8S3R4G2E2RF2D6F2 

R1E3U5H4L4E2G2L15U1D3P11D1F3R3':PU=PU+ 

NIt4:60T0 1360 



\ 
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1820 IF PC=2 AND M>135 AND N>25 ANO N< 
55 THEN LINE(32,145)-(58,165),i,BF:PA= 
4: BEEP: PU=PU+NI 15: SPRITE QFF-.GOTO 1950 
1830 GOTO 1360 
1840 ' 

1850 » mm choque mm 

1860 PLAVEDF" : SPRITE OFF 
1870 FOR X=2 TO 14 STEP 2 
1880 PUT SPRITE0,(N,M),X,1 
1890 FOR Y=l TO 100:NEXT Y 
1900 NEXT X 

1910 PUT SPRITE0, (0,209), 0,1 

1920 IF NV=0 THEN 2980 

1930 NV=NV-1:LINE(210, 1) -(240, 12) , 1,BF 

jCOLOR 13:PRESET(21B,2):PRINTI1,NV 

1940 RETURN 1340 

1950 ' 

1960 ' mm PANTALLA 4 mm 
1970 COLOR 12 . , 4: SCREEN2: PRESET (7, 2) : P 
RlNTUl,' PANT.";PA;" NIV.";NI;" VIDA 
S:";NV 

1980 P=P+1:PLAY SN$ 

1990 LINE(3,15!-(253,180),10,BF 

2000 LINE(8,20)-(248,175),1,BF 

2010 DRAWBK30,30C13S5R5F1R10U1R12E5R3 

DUL36H2U2E3":PAINT(33,33),13 

2020 DRAW"BM36,30C13S5E3R5F3':DRAWBH4 

5 , 33C 1 S5R 1 4D 1 L 1 4U 1 " : DR A« " BH6B , 29C 1 55R3 

DlL3Ur:PC=4 

2030 DRAWS2 , :PRESET(40,44):DRAW A3$:P 
AINT(42,46),12 

2040 PRESET(150,80):DRAH A4$: PAINT ( 152 
,82),8:DRAWS3' 

2050 FRESET(110,80):DRAH A2*:PA1NT(112 

,82/ , 12 

2060 GOTO 1280 
2070 ' 

2080 ' mm pantalla 5 mm 

2090 COLOR 8,1,1:SCREEN2:PA=5 j 
2100 CL0SE:0PEN"GRP:"ASI1 
2110 PLAY SN* 

2120 LINE(5,15)-(251,192),8,BF 
2130 LINE(10,20)-(246,184),1,BF 
2140 PRESET(7,2):PRINTit,- PANT.";PA;" 

NIV.";NI;" VIDAS:";NV 
2150 VÍ="C1R2D2L2U2" 
2160 G$="C13R8F3R15F402G4L1563L8U16" 
2170 PRESET (80, 154) :DRAH A1$:PAINT(83, 
160), 12 

2180 PRESETÍ160, 171) :DRAW A4$:PAWT(16 
5,176), 8 

2190 PRESET(210,159):DRAN A3$:PAINT(2l 
0,165), 12 

2200 DR AW " BM50 , 30C7R5D 1R4F3R4F3R663L9F 
3L15H3L9H1L3H2L2H1E1R4E2R10E3":PAINT(6 



mmmm 
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5 • ¿5) j 7 

2210 DRAWBH200,32C7R7E2R7F4R5F2D2L4G2 
L7S2L4H2L5H2L12E2R5E2R6H2" : PAINT ( 216, 3 
5),7 

2220 RESTORE 3680 



30 FOR X*J TC 12 



2240 READ A,B 

2250 PRESET ( A,B) : DRAM G$:PAINT'A+5,B*f 
2260 NEXT X 

2270 DRAH-BM25, 174CIÍS4R10U4E6F6D4F.10D 

10L32U10":FAINT(28, 178) ,10 

2280 PRESET (40, 170): DRAW V* 

2290 FOR X=2E.TQ 52 STEP 4 

2300 PRESET(X.176):DRAW V$:NEXT X 

2310 PRESET (39, 184) :DRAH , C1U4R4D4" 

2320 ' 

2330 ' mm Hov. sprites HWH 
2340 S=8:H=220:N=40:XX=15:Y1=60:Y2=120 
:PP=0 

2350 ON SPRITE GOSUB 2620 
2360 IF PP=1 AND rt" 225 THEN PU=PU+NI»2 
5: NI=NI+1 : P=P/2: NV»NV+2lRESTORE3630sBE 
EP:B0T0 570 

2370 !F H-rj THEN N=20 
2380 IF H<15 THEN «=220 
2390 PUT SPRITE0, (H,N),4,S 
2400 IF P0INT(M+3,N+6)>7 THEN 2620 
2410 IF P0INTfH+14yh>6)>7 THEN 2620 
2420 IF P0INT(f!+l,N+9)>7 THEN 2620 
2430 IF PQHfttN+15,N+9)>7 THEN 2620 
2440 PUT SPRITE1,(XX,Y1),11,9 
2450 PUT SPRITE2, W,Y2),11,9 
2460 XX=XX+P 

2470 IF XX>225 THEN XX=15: Y1 = INT:.RND<- 
TI¡1EX50)+21:Y2=INT(RND(-TIME)t55>+95 
2480 IF STRI6(Z) THEN 2750 



2490 SPRITE ON 



2500 Í«STICK(Í) 

2510 IF D=l THEN N=N-4:60T0 2360 
2520 IF 0=5 THEN N=N+4:60T0 2360 
2530 IF PPM THEN 2580 
2540 IF 0=6 THEN t1=M-4:N=N+4:60TO 2360 
2550 IF 0=7 THEN N=H-4:60T0 2360 
2560 IF 0=8 THEN 11=11-4: N=N-4:G0TQ 2360 
2570 M=M-2:60TÜ 2360 
2580 IF 0=2 THEN M=N+4:N=N-4:60T0 2360 
2590 IF 0=3 THEN H=H+4:60T0 2360 
2600 IF 0=4 THEN H=f1+4:N=N+4:60T0 2360 
2610 H=H+2:6QT0 2360 
2620 ' 

2630 ' ###### Choque mm 
2640 SPRITE OFF 

2650 SOUND 9,0:SOUND 10,16:SOUND 6,30: 
SOUND 12,56:S0UND 13,0:SOUND 7,24 



f isuuki ii in. 



2660 PUT SPRITE1,(0,209),0,9:PUT SPFIT 

E2, (0,209), 0,9 

2670 FOR X=2 TO 14 STEP 3 

2680 PUT SPRITE0,(H,N),X,S 

2690 FOP Y=l TO 100:NEXT Y 

2700 NEXT X 

2710 PUT SPRITE0, (0,209), 0,S 

2720 IF NV=0 THEN 2980 

2730 NV=NV-1:LINE(210,1)-'240.12!,1,BF 

:C0L0R 8:PRESET(2l8,2):PRINTfl,NV ' 

2740 GOTO 2270 

2750 ' 

2760 ' mm Bombardeo mm 
2770 IF M>45 OR S<>8 THEN 2350 
2780 SOUND 6,15:S0UND 7,7:S0UNÜ 8,16:S 
OUND 9,16 

27<>0 SOUND 10, 16: SOUND ll,0:58UND 12,1 

6: SOUND 13,0 

2800' SPRITE OFF 

2810 FOR Y=N+16 TO 160 STEP 4 

2820 PUT SPRITE2,!n>4,Y>,9.10 

2830 NEXT Y 

2840 PUT SPRITE 2, (0,209) ,0. 10 

"2850 SOUND 0,0:SOUND 1,5: SOUND 2,0:SOU 

NO 3,13 

2860 SOUND 4,255:S0UND 5,15:S0UND 6.30 
:S0UND 7,0 

2870 SOUND 8,16:S0UND 9,16:S0UND 10,16 
2880 SOUND 11,0: SOUND 12,5:S0UND 13,0 
2890 FOR X=i TO 30JNEXT X:SQUND 12,56: 
SOUND 13,0 

2900 FOR X=2 TO 14 STEP 3 
2*10 LINE(20,164)-(57,184),X,BF 
2920 NEXT X 
2930 SPRITE ON 

2940 LINE(20,164)-(57,184),1,BF 
2950 PU=PU+NI 
2960 PP=1:S=11 
2970 60T0 2350 
2980 ' 

2990 ' lllllt ¿Finalizar? tttH! 
3000 COLOR 4,1,1:SCREEN2:LINE(10,2M2 
46,190), 12,B 

3010 CL0SE:0PEN'6RP:"AStl 

3020 PLAY"dcr8co4b-aeH4c2" 

3030 PRESET (24 , 40) : PRINT9 1 , "HAS LLEGAD 

0 A LA PANTALLA' ;PA 

3040 PRESET ( 88 , 55 ) : PR I NTt 1 , - DEL NIVEL" 

m 

3050 COLOR 13:PRESET(56,90):PRINT*1.'P 
UNTOS CONSEGUI DOS : 1 : PRESET ( 1 04 , 1 05 ) : PR 
INT#1 , PUt 100:C=5 

3060 COLOR 5:PRESET(36,160):PR1NTI1, , ¿ 
SIGUES JUGANDO (S/N) ?":A$=" 
3070 COLOR C : PRESET ( 1 72 9 1 60 ) : PR I NTt 1 , " 




(S/N)' 

3080 At«INKEY! 

3090 IF A$="S" OR A$*V THEN 52? 
3100 IF A$="N" OR A$="n" THEN 3131 
3110 IF C=5 THEN C=10 ELSE C=5 
3120 GOTO 30 7 0 

3130 PRESET i 120, 175) t PRlUTtl , *0f " 
3140 PLAY'CFEDCFEDD" 
3150 IF PLAYÜ) THEN 3150 
3160 COLOR 12,l:SCREENi?:NEW 
3170 ' 

3180 ' mm instrucciones mm 
3190 COLOF; 12,l:SCRKN0:N»T«36:KEY OF 
F 

3200 LOCATE 12, 0: PRINT" ALERTA FOJA" 
3210 L0CATE12,1:PPINT" " 

3220 PRINT"En la base ha sonado la ftli 

rta roja. Debes ayudar a ur. pilote a cu 

■plir su (iisión.": c F:INT. 

3230 PRINT"! PANTALLAS 1 y 2: Ayúdale 

a cruzar los pasadizos sin tocar las p 

aredes,pués están electrifícaos. ":PRI 

NT 

3240 PRINT"! PANTALLAS 3 y 4: Debes c: 
ger la llave, la gasolina y -el arta. 
Luego debes llegar al avión."; 
3250 PRINT" : ¿Cuidado ceníes vehículos 
ü'jPRINT 

3260 PRINT! PANTALLA 5: Debes boibard 
ear el Cuartel General enemigo, esqu 
ivando los globos v misiles antiaéreos 
.":PRINT 

3270 PRINT*! Para recoger objetos y di 
sparar pulsa SPACE o FIRE.'fPMNT 
3280 PRINT" > PULSA UNA TECLA PARA J 
LIGAR <":A$="" 

3290 A$=INKEY$:IF A*="" THEN 3290 
3300 RUN 

3310 ' 

3320 » 11*111 DATA Sprites mm 
3330 ' Muñeco 

3340 DATA 3,7,0, F,D,6, 3, 1,3,F, 17,23, 1, 
l,2,C 

3350 DATA C0,E0,B0,F0,B0,60,C0,80,C8,F 



m w 




3360 1 Tanque <- 

Wi DATA 0,20, 10,3,4,3, 1,3F,7F,FF,6D, 
3F, 1F, 0,0,0 

3330 CATA 0,0,0. 20, D0,FB,F8,FC,FE,FF,B 
6,FC,Fe.0,0,0 

5390 ' Quito <- 

3400 DATA 0,0,0,F,:i,21,41,FF,FF,FF,FF 
,70,10,0,0,0 

2410 SATft 0,0.0, 0,0,0.0, FF,FF,FF,FF,E, 
4,0,0,0 

3*20 ' Csniir. -; 

W AU DATA 0,0,0, FF,FF,FF,FF,FF,FF,FF,F 
F,7í,2i,f,#,l 

3440 DATA 0,0,0,F0,38,e4,32,FF,FF,FF,F 
F,E,4, 0,0,0 
3450 • Tanque •> 

¡4*0 DATA 0,0,4^,^;SiF,3^,^,FF,6D, 
3F,1F, 0,3,0 
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3470 DATA 0,0,0,0,FE,80,30,FC,FE,FF,B6 
,FC,F8,0,0,0 
3480 ? Tanqueta (- 

3490 DATA 0,0,3F,0, 1,3F,71,FF,FF,FF,7F 
,38,10,0,0,0 , . 

3500 DATA 0,C,FC,CC,FE,FE,FE,FF,FF,FF, 
FF,E,4,0,0,0 

3510 ' Caaión con catión -) 

3520 DATA 0,0,0, 1,1E,1E,1F,3F,FF,FF,FF 

,38,10,0,0,0 

3530 DATA 20,40,30,0. 1C, 12, 11, F1,FF,FF 

,FE,1C,8,0,0,0 

3540 ' Avión <- 

3550 DATA 0,0,0,6,9,10,7F,FS,7F, 10,0,0 
,0,0,0,0 

3560 DATA 0,0, 1,3,7,8?, FF,3F,FF,4,0,0, 

0,0,0,0 

3570 ' Misil 

3580 DATA 0,0,0,0,80,C0,E_F 1 FP,EF,C0,30 

mmm 




,0,0,0,0 



3590 DATA 0. 0,0,0,0, 0,FC,FF,FC, 0,0,0,0 
,0,0,0 

3600 ? Bomba 

3610 DATA F, 7, 3, 1,3,3,3,3,3,3,3,3,3,3, 

3620 DATA E0,C0, 80,0,80, 80, 80,80,80, 80 

,80,80,80,80,0,0 

3630 » Avión -> 

3640 DATA 0,0,80,C0,E0,91,FF,FC,FF,20, 
0,0,0,0,0,0 

3650 DATA 0,0,0,60,?0,B,FE,1F,FE,8,0,0 

,0,0,0,0 

3660 ' 

3670 » MMM DATA Globos MMM 
3680 DATA 110,25,68,51,125,45,60,80,10 
0,74,175,60 

3690 DATA 150,35,205,83,180,110,90,105 
,80,130,135,130 



Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previamente hay 
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-199 


2150 


- 32 


2490 


- 92 


283? 


-220 


3170 


- 58 


3510 


- 58 


120 


-227 


460 




800 


- 66 


1140 


-215 


1480 


-147 


1820 


-253 


2160 


-215 


2500 


-127 


2840 


-169 


3180 


- 58 


3520 


-181 


130 


-206 


470 


- M 


810 


- 53 


1150 


- 9 


1490 


-213 


1830 


-236 


2170 


-166 


2510 


- 78 


2850 


- 12 


3190 


- 36 


3530 


C 

w 


140 


- 75 


480 


-137 


320 


- 58 


1160 


- 58 


1500 


- 72 


1840 


- 58 


2180 


-104 


2520 


- 81 


2860 


- 50 


3200 


- 36 


•3540 


- 58 


150 


-123 


490 


-113 


830 


- 7? 


1170 


- 58 


1510 


-109 


1850 


- 58 


2190 


-177 


2530 


- 50 


2870 


-237 


3210 


- 8 


3550 


-113 


160 


-135 


500 


-186 


340 


-215 


1180 


-160 


1520 


-170 


1860 


-192 


2200 


-238 


2540 


- 28 


2880 


-205 


3220 


-161 


3560 


-105 


170 


- 47 


510 


-110 


850 


-24? 


1190 -224 


1530 


-226 


1870 


-193 


2210 


-137 


2550 


- 82 


2890 


-217 


3230 




3570 


- 58 


180 


- 50 


520 


-248 


860 


- 77 


1200 


-134 


1540 


- 87 


1880 


-145 


2220 


- 8 


2560 


- 31 


2900 


-194 


3240 


-226 


3580 


- 32 


190 


- 82 


530 


-160 


870 


- 32 


1210 


-146 


1550 


- 75 


1890 


- 62 


2230 


-207 


2570 


-160 


2910 


-184 


3250 


-141 


3590 


- 38 


200 


-178 


540 


- 58 


880 


-133 


1220 


-142 


1560 


-113 


1900 


-219 


2240 


- 54 


2580 


- 24 


2920 


-219 


3260 


-187 


3600 


- 58 


210 


- 54 


550 


- 53 


890 


-139 


1230 


- 34 


1570 


-186 


1910 


-160 


2250 


-117 


2590 


- 77 


2930 


- 92 


3270 


- 71 


3610 


- 89 


220 


-161 


560 


- 58 


°00 -144 


1240 


-126 


1580 


- 76 


1920 


-198 


2260 


-219 


2600 


- 25 


2940 


-114 


3280 


-144 


' 3620 


- 8 


230 


-165 


570 


- 95 


910 -152 


1250 


-124 


159.0 


-113 


1930 


-104 


2270 


-252 


2610 


-159 


2950 


-193 


3290 


-107 


3630 


- 58 


240 


- 79 


580 


-202 


920 


-127 


1260 


-139 


1600 


-204. 


1940 


-221 


2280 


-162 


2620 


- 58 


2960 


- 55 


3300 


-138 


3640 


- 85 


250 


- 82 


590 


- 93 


930 


-175 


1270 


- 71 


1610 


-127 


1950 


- 58 


2290 


- 1 


2630 


- 58 


2970 


-206 


3310 


- 58 


3650 


-143 


260 


-175 


600 


-134 


940 


-182 


1280 


-165 


1620 


- 59 


1960 


- 58 


2300 


-222 


2640 


-178 


2980 


- 58 


3320 


- 58 


3660 


- 58 


270 


-183 


610 


-152 


950 


-178 


1290 


-131 


1630 


- 3. 


1970 


- 20 


2310 


-116 


2650 


- 55 


2990 


- 58 


3330 


- 58 


3670 


- 58 


280 


-245 


620 


-142 


960 


-183 


1300 


-103 


1640 


- 62 


1980 


- 82 


2320 


- 58 


2660 -141 


3000 -232 


3340 


- 7 


3680 


- 3 


290 


-225 


630 


-236 


970 


-178 ' 1310 


-170 


1650 


- 9' 


1990 


-149 


2330 


- 58 


2670 


-194 


3010 


-206 


3350 


- 19 


3690 


-192 


300 


-144 


640 


- 58 


980 


-186 


1320 


-196 


1660 


- 62 , 


2000 


-142 


2340 


-116 


2680 


-210 


3020 


-102 


3360 


- 58 




310 


-219 


650 


- 58 


990 


-183 


1330 


- 58 


1670 


- 12 


2010 -143 


2350 


- 61 


2690 


- 62 


3030 


-201 


3370 


- 87 






320 


- 58 


660 


-206 


1000 


-189 


1340 


- 66 


1680 


- 67 


2020 


-241 


2360 


-235 


2700 


-219 


3040 


-130 


3380 


- 41 






330 


- 58 


670 


-143 


1010 


- 8 


1350 


- 17 


1690 


- 15 


2030 


- 54 


2370 - 38 


2710 


-225 


3050 -251 


3390 


- 58 


' TOTAL: 


340 


-207 


¿60 


-149 


1020 


- 58 


1360 


- 82 


1700 


- 18 


2040 


- 90 


2380 


-231 


2720 -198 


3060 


- 81 


3400 


-161 


45109 




C 








M 






II 4 ll II *¿í Programa educativo realizado 

II II 11' W' II '11 i por Francisco Maldonado 

* Este interesante programa educativo os permite, tras una breve exposición teórica, calcular y :- _ 

gráficamente sistemas de e<ni^ II II II II 





— 



tmmmtmmtmtttt 
t t 

t FCO. MALDONADO NAUSIA t 
t t 
t PARA MSX-EXTRA. t 

I « 

tltttttttltttlIlttttUltt 



11 ' 

29 ' i • 
30 ' 
40 ? 
50 ' 
60 ' 
70 ' 
80 ' 
90 ' 

100 REM SISTEMAS DE ECUACIONES DE P*M 
ER GRADO CON DOS INC06NITAS 
110 ' 
120 ' 

130 REM Itttt TITULO Ittt 
140 ! 

150 ' 

160 OPEN "6PP: " AS*1:SCREEN 2-.C0LQR 15 
,4,5 

170 PLAVO7L50BO8L646FEDEFGL50BL6A6FEO 
7L50ECEO8EF6" 

180 LINEíl0,10)-(246.182),15,B 

190 LINE(25,25)-(234.168),15,B 

200 LINE(33,33)-(226, 162U5,B 

210 LINE(128,37)-<222,96>,15 

220 LINE(222.96)-(12B,162),15 

230 LINE(128,162)-(36,96),15 

240 LINE(36,96)-(128,37),15 

250 DRA1TBM60.82R10F2D8L4U4HIL2G1D4F8D 

862L10H2UBR4D4F1R2E1U4H8U8E2" 

260 DRAWBM77,82R5D2BL5U28" 

270 DRAW"BM89,82R10F2D8L4U4H1L2GID4F8D 

862L10H2U8R4D4F1R2E1U4HBU8E2" 

280 DRArBM103,82R15D5L5D22L5U22L5U5" 

290 DRAH'BH121,82R10D5L5D6R5D5L5D6R5D5 

L10U27" 

300 DRAW " BM 1 35 , 82F 1 2E 1 2D27L5U 1 6G7H7D 1 6 
L5U27" 

310 DRAWBM163.82R15D27L5U10L4D10L6U27 
BM168,87R5D7L5U7" 

320 DRAN"BM185, 82R10F2D8L4U4H1L2G1D4FB 
D862L 1 0H2UBR4D4F 1 R2E 1 U4H8U8E2 " 
330 PLAY*O3L10CDEFGABBO1DCABCEDC" 
340 PAINT(235,168),15 
350 PLAY"L6BDABDAADBAD" 
360 PAINT(225,161),15 



370 FOR P=0 TO 1000: NEXT P 
380 LINE(0.0)-(255,19D,2,BF 
390 LINE(208.8)-''247,59>,4,BF 
400 BEEP: FOR P=0 TO 300:NEXT P 
410 LINE(212,12)-!243.55).11.BF 
420 BEEP: FOR P=0 TO 300:NEH P 
430 LINE(216, 16)-(239,51U,BF 
440 PRESET(220,24) , 1:PF:INT#1, "♦X- 
450 BEEP 

460 PRESETI220,39S,1:PRINT«1,"+Y" 

470 FOR P=0 TO 500:*NEXT P 
480 LINE(8,8)-(47,5"),4,BF 
4"0 BEEP: FOR P=0 TO 300:NEXT P 
500 LINEU2,l2)-tf3,55),U,8F 
510 BEEP: FOR P=0 TO 300:NEXT P 
520 LINE(16,16)-(39,52),1,BF 
530 PRESET(22,24>,1:PRINTI1,"-X" 
540 BEEP 

550 PRESET(22,39),l:PRINTtl,"*Y" 
560 FOR P=0 TO 500:NEXT P 
570 LINE(8.132)-'47,183),4,BF 
580 BEEP: FOR P=0 TO 300:NEXT P 
590 LlNE''l2.13ó!-(43, 179l,il,BF 
600 BEEP: FOR P=0 TO 300: NEXT P 
610 LIHE U6, 140) -(39,175), i, BF 
620 PRESEK22, 148) , 1 : PRINTt 1 . " -X " 
630 BEEP 

640 PRESEK22, 166) , l:PPINTtl , "-Y" 
650 FOR P=0 TO 500:NEXT P 
660 LINE(208,132)-(247,183),4,BF 
670 BEEP: FOR P=0 TO 300: NEXT P 
680 LINE(2i2,i36)-(243,17"),ll,BF 
690 BEEPjFOP P=0 TO 300: NEXT P 
700 LINE(216,140)-(239,175),1,BF 
710 PRESET(220,148), 1:PRINT*1/*X" 
720 BEEP 

730 PRESET(220,166),1:PRINT*1,"-Y" 

740 FOR P=0 TO 500:NEXT P 

750 PLAY-O7L60BFEADCDEGAB* 

760 LINE(128,0)-(128,191),ll 

770 LINE(0,96)-(255,96Ul 

780 PRESET(80,50),2:PRINTtl, , DE" 

790 PRESET ( 40, 70) , 2: PRINTI1 , 'ECUACIONE 

S" 

800 PRESET(160,50),2:PRINTI1,"DE" 




810 PRESET(138, 7 0),2:PF:INTIl,"ler.6RAD 
0" 

820 PRESET(60,114),2:PPINTtl."CON DOS" 
830 PRESET(13e,:i4¡,2:PRINT*:,"INC06NI 
TAS" 

840 FOR P=0 TO 1500: NEXT F 
850 ' 
860 ' 

870 REM tt$l TEORIA MI 



UN PO 



890 ? 

900 CLS:PPESET'::.9):F c IN*il,1 
CO DE TEORIA B 

910 COLOR 11:PRESET(16,32):PP1NT*1,"IG 
UALDAD. ; 

920 COLOR 15:PPINT41," Es aquella q-e 
sir-ve pare expresar que les r esultado 
s de dos operaciones mdicadassor :gua 
les. V6R: " 

930 COLOR 8:PPESE T '88,'2):PPIN T »1/5I1 
0 = 50* 

940 COLOR 15:PRESETU6.88i:PRINT*l,"La 
s ";:COL0R ll:PRINTtl, "IGUALDADES ";:C 
OLOR 15:PPINT#1, "pueden ser:' 
950 COLOR ll:PRESET(0,104):PRINTtl,"a) 
NUMERICAS.-";: COLOR 15:PRINTI1." Si i 
ntervienen sólo núieros" 
960 COLOR B:PRESETC88,128):PRI!ÍTti»HI 



_ -y 
- J 



970 COLOR ll:PRESET(0,144):PRINT»i,"b) 
LITERALES.-";:COLOR 15:PR1NT«1," Si i 
ntervienen letras." 
9B0 COLOR 8:PRESET(88.160):PRINTIl/2t 

a = a+a 





\ 



990 SOSUB 2980 
1010 COLOR 1 1 : PRESET (24, B) : PRINTtl , "EC 
UACIDN. -" ; : COLOR 15:PRINTI1," Se ilaaa 
a toda igualdad literal que es cier 
ta .para uno o varios valores de las ) 
etras que contienen.* 
1010 PRESET(0,48):PRINTti,'-Son ecuaci 
ones:' 

1020 COLOR 8 : PRESET í 64, 64) : PRINTil , "31 
X = 15 ; 

YKY-2) * 12 ; 

X ♦ Y = 5' 
1030 COLOR 15:PRESET(16,ll2):PPINTtl," 
La letra o letras que figuran en una 
ecuación para que la igualdad se cu 
•pía se 11 aean";: COLOR 1 1 : PRINTtl 9 " IN 
-C06NITAS.' 

1040 COLOR 8:PPESET(64,152):PRINTtl,'2 
tX + Y * 15 ';:COL0R 15:PRINTtl, ' 

CX' e 'Y' son incógnitas).' 
1050 60SUB 2980 

1060 COLOR 15: PRESET ( 24, 24) : PRINTtl , "S 
e llaaan ';:C0L0R lkPRINTtl, * SOLUCIO 
NES o RAI- CES ";:C0L0R 15:PRINTtl,'de 
una ecuación al valor o valores que 
al ser sustituidos en la ecuación cu 
•píen la igualdad." 

1070 COLOR 8:PRESET(88,80):PRINTtl,'6l 
X * 120' 

1080 COLOR 15:PRESET(l6,104):PRINTti,' 
La *;:COL0R 1 1 : PRINTtl , "RAI 2 o SOLUCI 
ON *;:PRINT' de la ecuación es ";:C0L 
OR 8:PRINT"X = 20, ";:C0L0R lSzPRINTtl 
,"al susti- tuirla se cuiple que:' 
1090 COLOR 8: PRESET ( 80 , 1 52 ) : PR I NT# 1 , - 
6 i 20 = 120' 
1100 60SUB 2980 

1110 COLOR 11: PRESET ( 16, 8) : PRINTtl , "SI 
STEHA DE ECUACIONES.- ';:C0L0R 15:PRIN 
Ttl.'Es un conjunto de ecuaciones que 
tie- nen las usías soluciones." 
1120 COLOR 8:PRESET(80,40):PRINTtl,"X 

♦ Y * 0 

2tX ♦ Y = l" 
1130 COLOR 13: PRESET ( 16 9 72) : PRINTtl f "L 
as ';:C0L0R 11:PRINT'RAICES " ; : COLOR 1 
5:PRlNTtl,' del sisteaa anterior son:" 
; : COLOR 8:PRINTI1,' 

X=l e Y=-l" 
1140 COLOR 15:PRESET(16,104):PRINTI1," 
Según la definición se cuaple:';: COLOR 
8:PRINTtl,' 

1 ♦ (-!) = 0 








211 +(-1) = l" 
1150 GOSUB 2980 
1160 ■ 
1170 ' 

1180 REH Hit TIPOS DE SISTEMAS tltt 
1190 ' 
1200 ' 

1210 CLS: PRESET (36, 8) : PRINTtl , "11 TIPO 
S DE SISTEMAS U* 

1220 PRESET(24,24):PRINTtl,'Con este p 
rograea se pueden resolver los siguien 
tes tipos de sistemas. " 
1230 COLOR 15:PRESET(14,56):PRINTtl,"- 
Con denominador " ; : COLOR lhPRINTtl,' 
I6UAL';:C0L0R15:PRINTI1,' a la unidad. 

■ 

1240 COLOR 8:PRESET(40,72):PRINTti,'Al 
tX ♦ BUY ♦ Cl = 0 

A2IX + B2*Y ♦ 

c2 = r 

1250 COLOR 15: PRESET (16, 96): PRINTtl, '- 
Con denominador ";:C0L0R ll:PRINTtl,'D 
ISTINTO ";:C0L0R 15: PRINTtl , -qu» la 
unidad." 

1260 COLOR 8: PRESET (40, 112) ¡PRINTtl, • 
AltX + BUY ♦ Cl 

■ i M N 

N ' 

1270 COLOR 8: PRESET(40,136):PRINTtl,' 
A2IX ♦ B2tY ♦ C2 

s * N N 

N ' 

1280 COLOR .15: PRESET( 16, 168): PRINTtl," 
Para todo nileero 'N' distinto de 0" 
1290 GOSUB 2980 

1300 COLOR ll:PRESET(16,16):PRINTtl,'R 
AZONES ENTRE LOS COEFICIENTES" 
1310 COLOR 15:PRESET(16,40):PRINTtl,'S 
on el resultado de dividir entre sí lo 
s coeficientes hoeólo- gos de cada ecu 
ación." 

1320 COLOR 8 : PRESET ( 64 , 96 ) : PR I NTt 1 , " R 1 
= A1/A2 

1330 PRESET(64,120):PRlNTtl,'R2 = Bl/B 
2 

1340 PRESET(64,144):PRINTtl,'R3 = Cl/C 
2 

1350 SOSUB 2980 
1360 ' 
1370 » 

1380 REH tttl INSTRUCIONES lltt 
1390 » 
1400 ' 

1410 CLS:PRESET(40,16):PRINT01,'« INS 
TRUCCIONES 



1420 PRESET ( 16, 40) : PRINTil , "Puedes res 
olver sisteaas de ecuaciones de coefi 
cíente entero y fraccionario. Es conve 
niente poner su signo a cada tériino 
de las ecuaciones." 
1430 PRESET(8,80):PRINTtl, "Cuando los 
coeficientes sean enteros se pone de 

denoiinador la unidad." 
1440 PRESET(8,104):PRINTtl,"AI resolve 
r probleias de ftiltt-Ml puede ocurrir 
que los resultados no sean represent 
ables." 

1450 PRESET ( 1 6 , 1 36 ) : PR I NTt 1 , ■ Se dispon 
e de dos gráficos a escala distinta p 
ara visualizar eejor los resultados en 
valor absoluto señores o Mayores de i 
ie-te." 

1460 GOSUB 2980 
1470 ' 
1480 ■ 

1490 REH II INTRODUCCION DE DATOS %% 
1 



1510 ' 

1520 SCREEN0IKEY OFFiCQLOR 15,4,5 
1530 A$='U INTRODUCCION DE DATOS ■": 
A>LEN(A$)/2 

1540 LOCATE 20-A,l:PRINTA$ 

1550 B$=":L0CATE 2,5:PRINT'PRIHERA EC 
UACION' 

1560 BEEP: LOCATE 3,8:INPUT'-C0EFICIENT 
E PARA 'X";Al 

1570 A=VAL(Af):IF A=0 THEN 1560 
1580 GOSUB 2860 

1590 Al=A:Bt=B$+"X ': LOCATE 10,12:PRI 
NTB$ 

1600 BEEP: LOCATE 3,B:INPUT'-C0EFICIENT 
E PARA 'Y";AS 

1610 A=VAL(A$):IF A=0 THEN 1600 
1620 GOSUB 2860 

1630 B1=A:B*=B!*'Y ": LOCATE 10,12:PRIN 
TB$ 

1640 BEEP: LOCATE 3,8:INPUT'TERHIN0 IND 
EPENDIENTE'jAt 

1650 A=VAL(A$):C1=A:IF A=0 THEN Bi=B$+ 
' = 0':LOCATE 10,12:PRINTBt:6OTO 1680 
1660 GOSUB 2860 

1670 Cl*A:Bs*B$+" = 0':LOCATE 10,12:PR 
INTBI 

1680 B*=":L0CATE 2,5:PRINT'SEGUNDA EC 
UACION" 

1690 BEEP: LOCATE 3,8:INPUT'-C0EFICIENT 
E PARA 'X";Af 

1700 A=VAL(A$):IF A=0 THEN 1690 
1710 GOSUB 2860 

1720 A2=A:B$*B$*"X ': LOCATE 10,14:PRI 






NTB* 

1731 BEEP i LOCATE 3, 8: INPUT'-COEFICIENT 
E PARA 'Y";A$ 

1740 A=VAL(A*):IF A=0 THEN 1730 
1750 60SUB 2860 

1760 B2-AiBf-Bf*"Y "jLOCATE 10,14 5 PRIN 
TBf 

1770 BEEP: LOCATE 3,8:INPUT'TERHIN0 IND 
EPENDIENTE';A$ 

1780 A=VAL(A$):C2=A:IF A=0 THEN B$=B«+ 
' = «MOCATE 10,14:PRINTB$:GOTO 1810 
1790 GOSUB 2860 

1800 C2=A:B$=B*+" = 0":LOCATE 10,14:PR 
INTBf 

1810 FOR P=0 TO 300: NEXT P 
1820 ' 
1830 ' 

1840 REH Utt CALCULOS MUI 
1850 ' 
1860 ' 
1870 
1880 
1890 
1900 
1910 
1920 
0 

1930 
1940 



Rl*Al/A2:R2»Bl/B2 

IF C2*0 THEN 1890 ELSE R3=C1/C2 

H*A2tBl-AUB2 

N=A2ICl-AltC2:IF H=0THEN 1950 

V=-N/H:V=(1NT(VI100))/100 

H=(-Bllv-Cl)/A1:H=(INT(HI100))/10 



1950 REH tttt GRAFICOS tttl 
1960 ' 
1970 ' 

1980 COLOR 15,1,1:9CREEN 2 
1990 A=-A1/B1:B=-C1/B1:60T0 2010 
2000 Zl=l:A*-A2/B2:B«-C2/B2:6QT0 2170 
2010 FOR I=-70 TO 70 

2020 PSET(I+70,70),15 
2030 PSET(70,I+70),15 
2040 NEXT I 

2050 FOR I=-70 TO 70 STEP10 
2060 PSET (l4-7i.71)iDRMI a D2 a 

2070 PSET (68, 1+70) :DRAW"R2" 
2080 NEXT I 

2090 FOR I*-60 TO 60 STEP 20 

2100 J=-I:K=10 

2110 IF I»0 THEN 2140 

2120 PSET(50,I*6B),l:PRINTtl,J/K 

2130 PSET(I*60,80),l:PRINTtl,I/K 

2140 NEXT I 

2130 IF H«0 ANO N*0 THEN 2190 

2160 IF M=0 THEN 2190 

2170 IF H>«-7 ANDH<*7 AND V>*-7 AND V< 

=7 THEN 2250 

2180 PRESET (2Í, 18i) : PRINTfl , "Escal a: 
110" 



2190 FOR X=-70 TO 70 
2200 Y=AtX*B:Y=INT(70-Y) 
2210 IF Y>140 THEN 2230 
2220 PSET(70*X,Y),11 
2230 NEXT X 
2240 60T0 2300 
2250 FOR X=-70 TO 70 
2260 Y=AtX-10$AtH*10tV:Y=INT(70-Y) 
2270 IF Y>140 THEN 2290 
2280 PSET(70+X,Y) ,15 
2290 NEXT X 
2300 IF M=0 AND N=0 THEN 2420 
2310 IF ZlOl THEN 2000 
2320 Z1=0:IF H*0 THEN 2420 
2330 * 
2340 1 

2350 REH MU SOLUCIONES ttll 
2360 ' 
2370 » 

2380 PSET ( 150, 30) : PRINTli , "SOLUCIONES" 

2390 PSET(15l,35):PR!NTtl," ■ 

2400 PSET(160,70):PRINTtl."X=";H 
2410 PSET(160,90):PRlNTt:,»Ys'{V 
2420 FOR P=0 TO 6000: NEXT P 
2430 CLS: COLOR 15, 4, 5: SCREEN 2 ' 
2440 IFH=0 AND N=0 THEN 2610 
2450 IF H=0 THEN 2730 
2460 » 
2471 • 

2480 REH SECANTES 
2490 ' 
2500 ' 

2510 PRESET(16,32),i:FrINTtl,"La repre 
sentación gráfica de áibas ecuacione 
i es un par de rectas secantes. Se co 
rtan en un punto.* 
2520 PRESET(16,64):FRINTtl,"El sisteia 
es ";:COLOR 1 1 : PRINTtl , "DETERMINADO. 
•;:COLOR 15: PRINTtl , "Ti ene una solució 
n." 

2530 PRESET ( 16, 88) : PRINT#1 , "Se cueple 
que:" 

2540 COLOR 1 1 : PRESE T ( 1 6 , 1 04 ) : PR I NTI 1 , • A 
1 Bl Ci - * -- 

* -- ; O sea que: A2 B2 C2" 
2530 PRESET(16,136)»PRINTtl,"Rl«"|Rl 
2560 PRESETÍ16, 144) : PRINTfl , "R2=" ; R2 
2570 PRESET ( 1 6, 152) i PRINTtl , "R3«" ; R3 
2580 COLOR l 5: PRESET '16, 168) ¡PRINTfl," 
Son distintas 1 
2590 T1=1:60SUB 2980 
2600 ' 

2610 REH COINCIDENTES 
2620 " 

2630 PRESET (16, 32): PRINTtl, ta represe 



ntación gráfica de áibas ecuaciones 
es un par de rectas coincidentes. T i 
enen to-dos sus puntos coeunes." 
2640 PRESET ( 16, 64) :PRINTtl , "El sisteoa 
es ";:C0L0R 1 1 : PRINTtl , " INDETERMINADO 
. ■ ; : COLOR 15:PRINTtl," tiene infinit 
as soluciónes." 

2650 PRESET ( 16, 88) : PRINTtl , "Se cuiple 
que: " ; : COLOR 8:PRINTI1," X=0/0" 
2660 COLORI l : PRESET ( 16, 104) : PF INTtl, " 
Al Bl Cl y - = 

A2 B2 C 



0 sea 

< 



2" 

2670 PPESETÍ16, 136) : PRINTtl . "R 1=" ;Rl 

2680 PRESETU6,144):PRINTtl,"R:=";P2 

2690 PRESET(16,152):PRINTtl,"R3=";R: 

2700 COLOR 15:PRESETí 16, 1 68 ) : PF INTf l , • 

Son iguales." 

2710 T1=1:60SUB 2980 

2720 ' 

2730 REH PARALELAS 
2740 ' 

2750 PRESET ( 16, 32) :PRINTtl , "La represe 
ntación gráfica de áibas ecuaciones e 
s un par de rectas paralelas. No se 

cortan en ningún punto." 
2760 PRESET(16,64):PRINTtl,"El sistena 

es "; ¡COLOR 1 1 -.PRINTtl ," INCOMPATIBLE. 

";:C0L0R 15:PRINTtl," No tiene ningu 
na solución." 

2770 PRESET(16,88):PRINTtl."Se cueple 
que ";:C0L0R 8: PRINTtl , "Y=«" :: COLOR 15 
:PRINTtl," (Infinito).' 
2780 COLORI 1 : PRESET (16, 104) :PRINTtl , "A 
1 Bl Cl 

I - A2 B2 C2" 

2790 PRESET (16, 136) : PRINTtl, "Pl=";Rl 
2800 PRESET ( 16, 1 44) : PRINTI 1 , "R2=" : R2 
2810 PRESET ( 16, 152) : PRINTtl, "R3=" ; R3 
2820 COLOR 15:PRESET(16, 168) : PRINTtl , • 

Coto se ha visto." 
2830 T1-1:60SUB 2980 
2840 ' 
2850 ' 



I I 





NES ier . 6RAI O 




S I NCOSN I TAS 

ra 



2360 m zímmwiz 

2870 ' 
2330 ' 

2S C 0 B£EF:B£E?:LCChTE 2,20:PRINT"!NTRO 
DUCE EL 5EN0 m :NAD0F:.";:INPUT Di 

2900 D»VALíO$UlF D=0 THEN 2890 
2 5 10 LOCATE 26,8:PRINT" 
292! LOCATE 2.20:PRINT- 






















































2930 IF D=l THEN B$=B$+A$: RETURN 
2940 A=A/D:B*=B$*A$*"/"*D* 
2950 RETURN 
2960 » 
2970 ' 

2980 PE?! ESPERA 



"990 



¿ 

3000 ' 

3010 C0LQP15:PRESET '48.184;, 4: c & INTUI, 

"(PULSA UNA TECLA) * 

3020 IÍ=INKEY$:IF 1$="' THEN 3020 

3030 IF Tl»l THEN T1=0:6OTC 3070 

3040 CL3: RETURN 

3050 ' 

3060 ' 

3070 REK OPCIONES 
3080 ' 
3090 ' 

3100 CLS:PRESETi80,16;:PRINT*l."B ELI 
6E H 

3110 FRESET<16.32):PRINTI1,"1) Teoría. 



3120 PRESET ( 16, 56) :PRINT«1 , "2) Tipos d 
e sistemas." 

3130 PPESET(16,80):PRINTIl/3) Instruc 
ciones." 

3140 PRE5ET!;6,104):PRINT#1,»4) Introd 
ucir datos" 

3150 PRESET(16,128):PRINT#1."5) Desped 
ida.' 

3160 PRE3ET(16,160):PRINTI1,"6A DONDE 
QUIERES m 

3170 I$=INPUTs(l):IF lUf THEN 3170 

3180 IF If<»r 0R I$>'5" THEN 3170 

3190 IF I$= M r THEN 870 

3200 IF I$="2" THEN 1180 

3210 IF I$= n 3" THEN 1330 

3220 IF I$=M" THEN 1490 

3230 IF I$="5 H THEN CLS: CLOSE: SCPEEN 0 

.•LOCATE 11,11:PRINT"'HASTA LA PROXIMA! 

■ 

3240 END 



TEST DE LISTADO, 



10 - 58 
20 - 58 
30 - 58 
40 - 58 
50 - 58 
60 - 58 
70 - 58 
80 - 58 
90 - 58 
100 - 0 
110 - 58 
120 - 58 
130 - 0 
140 - 58 
150 - 58 
160 -138 
170 -123 
180 - 79 
190 - 83 
200 - 85 
210 - 4 
220 -129 
230 -199 
240 - 74 
250 -199 
260 - 10 
270 -210 
280 - 90 
290 - 72 
300 -226 



310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 

550 
560 

570 

580 

590 



•154 
255 

ce 

JJ 

• 97 

• 38 
•191 
•140 





610 - 59 910 -192 

620 - 59 920 - 78 

630 -192 930 -224 

640 - 78 940 -191 

650 -201 950 - 31 

660 -206 960 -235 

670 -251 970 -216 

680 -21 1 980 -155 

690 -251 990 - 74 

-251 700 -203 1000 -225 

-219 710 -255 1010 -182 

-251 720 -192 1020 -166 

-2!1 730 - 20 1030 -142 

-131 740 -201 1040 - 1 

-192 750 - 37 1050 - 74 

-147 760 -222 1060 -108 

-201 770 -222 1070 - 14 

- ?4 780 - 24 1080 -234 
-251 790 - 90 1090 - 88 

- 75 800 -104 1100 - 74 
-251 810 -128 1110 -188 

- 68 820 -129 1120 - 69 
-191 830 -248 1130 - 32 
-192 B40 -181 1140 - 67 
-205 850 - 5B 1150-74 
-201 860 - 58 1160 - 58 
" °4 870 - 0 1170 - 58 
-251 880 - 58 1180 - 0 
" ° 7 890 - 58 1190 - 58 
-251 . 900 - 62 1200 - 58 



1210 -194 
1220 - 16 
1230 -197 
1240 -147 
1250 -213 
1260 - 67 
1270 - 94 
1280 -156 
1290 - 74 
1300 -254 
1310 - 69 
1320 - 48 
1330 - 59 
1340 - 86 
1350 - 74 
1360 - 58 
1370 - 58 
1380 - 0 
1390 - 58 
1400 - 58 
1410 - 52 
1420 -119 
1430 -187 
1440 - 12 
1450 -123 
1460 - 74 
1470 - 58 
1480 - 58 
1490 - 0 
1500 - 58 



1510 - 58 

1520 - 95 
1530 - 81 
1540 -156 
1550 -102 
1560 -227 
1570 -133 
1580 -210 
1590 -199 
1600 -228 
1610 -173 
1620 -210 
1630 -201 
1640 -168 

1650 -158 
1660 -210 

1670 -222 

1680 - 93 

1690 -227 

1700 - 7 

1710 -210 

1720 -202 

1730 -228 

1740 - 47 

1750 -210 

1760 -204 

1770 -168 

1780 - 36 

1790 -210 

1810 -225 



1810 -201 2110 - 32 

1820 - 58 2120 - 0 

1830 - 58 2130 - 21 

1840 - 0 2140 -204 

1850 - 58 2150 -154 

1860 - 58 2160 - 86 

18^0 -211 2170 - 31 

1880 -125 2180 -164 

1890 -224 2190 - 62 

1900 -130 2200 -254 

1910 -142 2210 - 19 

1920 -174 821 =124 

1930 - 58 2230 -219 

1940 - 58 2240 -155 

1950 - 0 2250 - 62 

1960 - 58 2260 -152 

1970 - 58 2270 - 79 

1980 -105 2280 -128 

1990 -229 2290 -219 

2000 - 80 2300 -129 

2010 - 47 2310 -197 

2020 -109 2320 - 2 

2030 -109 2330 - 58 

2040 -204 2340 - 58 

2050 - 36 2350 - 0 

2060 -214 2360 - 58 

2070 -225 2370 - 58 

2080 -204 2380 -133 

2090 - 26 2390 - 72 

2100 - 1 2400 -203 



2410 -238 
2420 - 91 
2430 - 73 
2440 - 64 
2450 -116 
2460 - 58 
2470 - 58 
2480 - 0 
2490 - 58 
2500 - 58 
2510 - 59 
2520 -121 
2530 -249 
2540 - 20 
2550 -228 
2560 -238 
2570 -248 
2530 -158 
2590 - 10 
2600 - 58 
2610 - 0 
2620 - 58 
2630 - 43 
2640 -137 
2650 -216 
2660 -208 
2670 -228 
2680 -238 
2690 -248 
2700 -227 



- 10 



- 58 



- 58 

- 19 

- 77 
-123 
♦ 48 
-228 
-238 
-248 

- 45 



2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 - 58 

2850 - 58 
2860 - 0 
2870 - 58 

2880 - 58 
2890 - 59 
2900 -197 
2910 - 85 
2920 - 73 
2930 -131 
2940 -177 
2950 -142 
2960 
2970 
2980 
2990 
3000 



58 
58 
0 
58 
58 



3010 - 47 
3020 -108 
3030 - 74 
3040 -103 
3050 - 58 
3060 - 58 
3070 - 0 
3080 - 58 
3090 - 58 
3100 -217 
3110 - 2 
3120 -224 
3130 - 33 
3140 -225 
3150 -109 
3160 -167 
3170 - 35 
31B0 -126 
3190 -173 
3200 -229 
3210 -175 
3220 - 30 
3230 -184 
3240 -129 

TOTAL s 
37954 
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Programa de juego realizado 
por Juan Carlos Enrique 



inacabable núm 



10 ' //////////////////////////// 



// - COLCSG'S KREMA - // 
// por : // 

// Fire Software Ldt. // 
// PARA HSX EXTRA // 

/////|////////////////////// 

VARIABLES: SALTO A SUBRUTINAS 



20 
30 
40 
50 
60 
70 
80 
90 ' 

100 PLAY"Vir,"V10 u 

110 C0L0R13,1,1:SCREEN 2,1,0 

120 GOSUB 1760:5OSUE 14¿0 

130 GOSUB 1940 

140 COLOR ,1,1 

150 SCREEN2: GOSUB 580 

160 K«i2f:M«100 

170 VELX-2:VI%=3 

180 PLAY-O6V15H1000L32" 

190 ON SPRITE GOSUB 380 

200 ON INTERVALO 000 GOSUB 900 

210 ' 

220 ' PROGRAMA PRINCIPAL 

t 

240 INTEF.VAL ON 

250 Y17.=0 

260 AX=STICK(0) 

270 IF AX=3 THEN XZ=X7.*2 

280 IF Aí=7 THEN X7.=X7.-2 

290 IF XP220 THEN X7.=220 

300 IF XX<10 THEN X%=10 

310 PUT SPRITE 0,(XW8,174>,1,1 

320 PUT SPRITE 1, (X7., 174), 1,0 

330 PUT SPRITE 2, ( XXX, Yl%i , 6, 2 

340 Y1Z=Y1X+VELX 

350 IF YU>-190 THEN GOSUB 950 

360 SPRITE ON 

370 GOTO 260 

380 ' 

390 ' HOMBRE RESCATADO 
400 ' 

410 SPRITE OFF 

420 A$='o4120cde":B$= , o4120efg":PLAY A 
$,B* 

430 SCR*SCR+10 

440 PUT SPRITE 2, 10,0), 0,0 



mantener al 100 por 100 vuestros reflejos, ya que deberéis rescatar a un 

de la voracidad de las llamas. 





450 L!NE<65,0)-(135,3!,15,BF 
460 DRAN*Bfl65,0" 

470 COLOR 1 3 : F F I N T *i , " P U ru O S - ; S C R 
480 IF SCRO00 THEN PLAYVg'etícV,'I7.= 
VI7.+ 1 

490 IF SCF=¿00 THEN c LAY"2fgff>d;":'T.= 
V!M 

500 IF 3CR-1000 THEN P".AY"2*g+ edc " : Vi;: 
=VIM 

510 LINE(150,0)-(:i0,8),15 ; B( r 
520 ORAW'BH1!!,0' 
530 COLOR l3:FRINTti, -VIDAS";V:y. 
540 XXX=INT(RND(l)tl60)+50 
550 Y1X=0 

560 SPRITE ON:RETURN 260 
570 ' 

580 ' GRAFICOS 
590 ' 

600 DEFUSR*IH41:A*USK(0) 
610 C1RCLE(230,30),15,11 
620 PAINT(225,30>,11,11 
630 LINE!0,160:'-(2!0,195¡,3,BF 
640 LINE(40,0)-(40,160!,14 

650 LINE(60,0)-<60,17!\!4 
660 LINE(40,lfc0i-í.50, 175), 14 
670 PAINT(50,0),14,14 
680 LINE(60,0)-(210,175).1!.BF 
690 LINE(B5,20)-(100,40),10.BF 
700 LINE (125, 20) -(140,40), 10, BF 
710 LINE(lé!,20M180,40!,10,BF 
720 LINEi85.o0)-(l00,80),10,BF 
730 LINE(125,60)-(140,80),10,BF 
740 LINE(165,60 , .-U80,30M0 ? BF 
750 LIME (85, tÜÍ -(!l§| 121), lt,BF 

760 LiNE«i25,;03»-a40,::0),:¿ , ,BF 

770 UNE ( 169, 1Ü) - (180, 121) , 10, BF 
780 LINE(110,145)-(137,175),4,BF 
790 LINE(139,145)-(166,175),4,BF 
800 LINE(60,0)-(210,8),15,BF 
810 DRAWBM65, »• : PRINTt 1 , ' PUNTOS " ; 0 

820 DRAM'BNi50,0":PRINTtl,"VIDAS , ;3 
830 COLOR 6 

840 DP AK 8 BU 1 2 1 , 1 35 " : PR I NTf 1 , " HOTEL " 
850 DRA«'Bfll22,135":PRINTIl, "HOTEL" 
861 PUT SPRITE 10, (222,159), 4,6 





B?í P'JT SPRITE i:, '238. :r- ,4,7 
880 DEHJSF4.H44:A=';SF::) 
B°0 FETURN 
902 * 

9i? » came::- de dificultad 

920 ' 

V:i vel::=velv ; 

940 RETüRN 
950 ' 

960 J HOMBRE CAIM 
97? • 

980 SPFITE pFFsIRTEFVAL DFF 

99 0 A$s«o4iMco3bo4cdt-'(ls:s:to4cc:8i-fg 

e-fdcgabo4c" 

1000 B$='a3il0CCGCCC£CC€£EK:CCC£C:' 

101ií Ct-"c3¡ 10e-e-e-e-e-e-e-e-e-6-e-e- 

e-s-e-e-e-o-e-e-e" 

1020 PLAV ftt,|t,£< 

vm ir twmk THEN IWEL5E \VÁ 

1040 VI7.=VIM 

1050 LINE'150,0)-'210,8¡,!5,3F 
1060 DRAU"BM155 f 0" 

1070 colop LSsttlirti/vKAPjVU 

1080 IF VI7.=0 THEN £0 T D 1110 ' 
10<?0 SPRITE ON; INTER VAL ON 
1100 RETURN 250 
1110 \ 

1120 ' FIN PARADA 
1130 ' 

1140 FOR 1=1 TO 1000: NEXT I 
1150 PUT SPRITE 3, (X7., 170), 1,5 
1160 FOR A=XX TO 275 STEP 2 
1170 PUT SPRITE 0. (A, 170!, 1,4 
1180 PUT SPPITE 0, <A, 170) , 



1 



I 



1870 ' lona 

1880 SPRITE* (5) =CHP* ( &H0) *CHR* ¡ M ♦Cü 

R$ (M0) *CHR* I&H0) +CHR* UH0) +CHR* (ÍH0) + 

CHR*(iHFF)+CHR*(iH42) 

1890 ' coche boiberos 1 

1900 SPRITEI (6) =CHR*(fcH0)+CHR*(ítHFF) *C 

HR* (ItHFB) +CHRI (ítHFl ) <t-CHR$ < ttHFB > +CHR* ( lt 

HFF)*CHR$(IH38)+CHR$(UÜ0) 

1910 ' coche boiberos 2 

1920 SPRITE*(7)=CHR*UH20)+CHR$(fcHF8! + 

CHR* (WF4 ) *CHR* (&HF2) *CHR* (ItHFE) +CHR* ( 

MFEl*CHRi(lH38)*CHR$íiHl0) 

1930 RETURN 

1940 » 

1950 ■ MENSAJE START EN SCREEN 3 
1960 ' 

1970 COLOR 1, 15, 15 
1980 SCREEN 3 
1988 CLS: COLOR 3 

2000 DRAW"BM50, 80" : PRINTIl , "START" 
2010 COLOR l 

2020 DFAtTBH50,76':PRINTtl, "START" 
2030 FOR 1=1 TO 2500:NEXT 
2040 RETURN 
2050 P«l 

============ 



::90 PUT SPRITE 1, (A+20, 170) ,1,4 
1200 PUT SPRITE 1, (A+20, 170), 1,3 
1210 BEEP 
1220 NEXT A 

1230 L1NE(95,80)-(170,90),3,BF 
1240 COLOR 1 
1 1250 DRAWBH97,B2 , :PRINTI1,"6AHE OVER" 
1260 DRAN"Bh*98, 82": PRINTIl, "GANE OVER" 
1270 FOR 1=1 TO 3000:NEXT 
1280 SCREEN0: NI DTH40: COLOR 6,1,1 
1290 LOCATE10,2:PRINT"- FIN FAPTIDA -" 
1300 L0CATE6,6:PRINT"HAS HECHO ";SCR;" 
PUNTOS. ' 

1310 ¡f SCRU00 THEN L0CATE6,8:PRINT" . 
i OYE TIO, JUE6AS FATAL !'":60TO 1350 
1320 IF SCR',300 THEN L0CATE6,8:PRINT"0 
YE, JUEGAS BUY BIEN! ! ":SOTO 1350 
1330 IF SCR<500 THEN L0CATE6,8:PRINT" . 
. ESTAS HECHO UN AS ! !":GOTO 1350 ■ 
1340 IF SCRU000 THEN L0CATE2, 8: PRINT" 
1 1 ESTUPENDO.COLOSAL.FANTASTICO "":GO 
TO 1350 

1350 LQCATE3, 12:PRINT"PULSA 'SPACE' PA 
PA OTRA PARTIDA' 
1360 A*=" 

Este programa ha sido real 
izado para la revista USX EXTRA, por : 
Pedrc Safont (MUSICA Y EFEC T 05 
SONOROS) Juan C.Enrique 'I 

DEA Y DESARROLLO) Federico 
Guibau (DISEÑO GRAFICOS) ." 
• 1370 P«l 

1380 c OR W TC 240 

1390 LOCATE 0,21 

1400 PRINT HID*(A*,P,40) 

1410 FOR. X=0 TO 60: IF INKEY*=" " THEN 

1440 ELSE NEXTX 

1420 P=P+1 

1430 NEXT:GOTQ 1360 

1440 FOR 1=1 TO 32:PFINT:NEXT:RUN 

1450 ' 

1460 ' PANTALLA DE PRESENTACION 
1470 » 

1480 OPEN"GRP:"ASIl 

1490 DEF USR*tH41:A*USR(0) 

1500 DRA«"BH55,10 U :PRINTI1," 

1510 DRAH"B«6,U": PRINTIl," 

1520 DRAK"BH55,20":PRINTI1,"- COLOSO' S 
KREHA 

1530 DRAH"BH56,21':PRINTI1,"- COLOSO'S 
KREHA 

1540 DRAM"BH55,30":PRINTI1,"- 



1550 DRA*'BH56,3l";PRINT*l," 

1560 COLOR 3 

1570 DRAN"BH68, 60": PRINTIl, "REALIZADO 
POR:" 

1580 DRAWBN69, 60": PRINTIl, "REALIZADO 
POR:" 

1590 COLOR 13 

1600 DRA«"BM40,B5":PRINTI1,"JUAN C.ENR 
IQUE PORCADA" 

1610 DRAN"BH41,35":PRINTIi,"JUAN C.ENR 
IQUE FORCADA" 

1620 DRA«'BH120,100":PRINTI1,"*" 

1630 DRAN"BÍ112i,100":PRINTIl,"l" 

1640 DRAN"Bh72, 115": PRINTIl, "PEDRO SAF 
ONT" 

1650 DRAN"Bh73,ll5":PRINT*l, "PEDRO SAF 
ONT" 

1660 DEF USR=I(H44:A=USR(0) 

1670 Z*="o511d8c.ll6o4b-o518c.ll6dl4c 

o4b-llo5clBc.ll6o4glBa.H6b-14a9llalBa 

.Í16fl8g.ll6allff a 

1680 X$="o312al4fal2o4dc33al4faü412dcc 

do3b-b-ab-a" 

1690 PLAY Z$,X$ 

1700 IF PLAY«0)=0 THEN 1710 ELSE 1700 
1710 COLOR 6 

1720' DRAWBH65, 150" ¡PRINTIl, "PULSA 'M 
TECLA" 

1730 DRAITBM66, 151 " :FRINTI1 , "PULSA UNA 
TECLA" 

1740 A*=INKEY*:IF AJ=" THEN 1740 ELSE 
RETURN 
1750 ' 

1740 ' DEFINICION DE SPF.ITE5 j 
1780 ' aciberas 1 

1 790 5PR I TE* ( 0 ) =CHR* ( ÍH0 ) +CHR* (ÍHE0 ) +C 

HR$:i,HEi?'+CHR$(iH40)4CHRI(lH60)*CHRI(* 

H5fKHR*;iHA0)+CHR*(*H98) 

180? * bombeas 2 [ 

1310 3 c RITE*:iKH**!*H0^CHR*(*H7KH 

R* W) *ChR* ( m) +CHP*(&H6)+CHR*(StHFA) 

1823 ' hombre cayendo 1 

1830 SPRITE* (2) =CHR* (ítHA) +CHR* (&H4 ) +CH 

R* íítHE) +CHR* (&H15) +CHR* UH0) +CHR* í &H0) 

+CHR*(&H0)+CHR*(iH0) 

1840 SPR ITE$ (3) =CHP$ ( IHE0) +CHR* ( StHE0) ♦ 

CHR* (ÍH40) +CHR* (&HF0) +CHR* (&HC0) +CHRS ( 

*H40)*CHR*(*HA0)+CHR*(*HB0) 

1850 ' hoibre 2 

1860 SPRITE* (4) =CHR* ( *HE0 ) +CHR* ( ÍHE0) ♦ 
CHR*,lH40)*CHR*(iHE0)+CHR*(iHD0)*CHR*( 
*H60)+CHR*(iH98)+CHR*(lHC0) 



TEST DE LISTADO = 

10 - 5S 280 -192 550 -175 820 -185 • 

20 - 58 290 - 18 560 - 55 830 -212 

30 - 58 300 -112 570 - 53 340 -214 

40 - 58 310 -252 580 - 58 850 -215 

50 - 58 320 -234 590 - 58 860 - 91 

¿0 - 58 330 - ¿0 600 -176 870 -109 

70 - 58 340 - ">4 610 -235 880 -179 

80 - 58 350 - 18 620 -229 B90 -141 

90 - 53 360 - 92 630 - 42 900 - 58 

100 -227 370 -156 640 - 18 910 - 58 

110 -226 380 - 58 650 - 73 920 - 58 

120 - 15 390 - 56 660 -211 930 - 10 

130 - 54 400 - 58 670 - 32 940 -142 

140 - 57 410 -178 6B¿ -146 950 - 58 

150 -243 420 -157 690 -1°7 960 - 58 

160 -100 430 -201 700 - 21 970 - 58 

170 - 15 440 -210 710 -101 980 -133 

180 - 5 450 -169 720 - 21 990 -143 

190 -116 460 - 88 730 -101 1000 - 39 

200 - 91 470 - 85 740 -181 1010 -214 

210 - 58 480 - 2 750 -101 1020 - >5 

220 - 58 490 - 47 760 -181 1030 -157 

230 - 58 500 -192 770 - 5 1040 -123 

240 - 67 510 - 73 780 - 3 1050 - 73 

250 -175 520 -136 790 - 61 1060 -136 

260 - 88 530 -191 800 -239 1070 -191 

270 -187 540 - 87 810 -253 1080 - 26 





1090 


-217 


1 1 Qfl 
1 100 


- 1 70 

1/ i 


1 ^10¡ 
ILIV 


- 

OJ 


L-60 


- 88 


1450 


- 58 


1540 


- 36 


16:>0 


-120 


1720 


- 0 


1810 


- 6 




1100 


-150 


117» 


17«t 


PflÉ) 
i *QV 


-117 
110 


177a 


0 1 

- 01 


1 a ta 
1460 


CO 

- JO 






1640 


1 i A 

-114 


1730 


- 2 


1820 


- 58 




1110 


- 58 


1200 


-193 


1290 


-123 


1380 


-164 


1470 


- 58 


1560 


-209 


1650 


-115 


17Í0 


-192 


1830 


- 17 




1120 


- 58 


1210 


-192 


1300 


- 61 


1390 


- 57 


1480 


-224 


1570 


-1«9 


1660 


-179 


1750 


- 58 


1840 


-232 




1130 


- 58 


1220 


-196 


1310 


-215 


1400 


-168 


1490 


-176 


1580 


-200 


1670 


-19° 


1760 


- 58 


1850 


- 58 


1140 


-178 


1230 


-126 


1320 


- 24 


1410 


- 37 


1500 


- 34 


1590 


-217 


1680 


- 9 


1770 


- 58 


1860 


-233 




1150 


-237 


1240 


-207 


1330 


-103 


1420 


-146 


1510 


- 36 


1600 


-166 


1690 


-231 


1780 


- 58 


1870 


- 58 




1160 


-241 


1250 


- 93 


1340 


- 67 


1430 


-169 


1520 


- 12 


1610 


-167 


1700 


-221 


1790 


- 5 


1880 


- 10 




1170 


-173 


1260 


- 94 


1350 


- 27 


1440 


- 0 


1530 


- 14 


1620 


-119 


1710 




1300 


- 58 


1899 


- 58 



11 

58 

12 



1900 
1910 

1921 

1930 -142 

1940 - 58 

1950 - 58 

1960 - 58 

1970 - 99 

i°20 -217 ::^cg 



1988 -170 
2000 -136 
2010 -207 
2020 -141 
2030 - 7! 
2040 -142 
2050 - 81 







.... 
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EL ATAQUE DE LOS DUENDES 



Todos nuestros lectores saben (o de- 
bieran saber) que en todas las edi- 
toriales que se precien, existen 
unos malvados duendecillos cuya única 
misión en esta vida es la de hacer la pas- 
cua a propios y extraños. Los que trabaja- 
mos en el mundo editorial conocemos so- 
bradamente su existencia, y hacemos lo 
posible por exterminarlos. Pero esto no es 
tan fácil. Se reproducen como conejos, y 
cuando parece que ya se han exterminado 
totalmente, vuelven a la carga haciendo de 



las suyas. Como en nuestro número del 
mes pasado, donde no se les ocurrió otra 
cosa que duplicar los fotolitos de las pági- 
nas 18 y 19 en la 20 y 21, correspondien- 
tes al programa TALISMAN. 

Por lo que nos han silbado los oídos du- 
rante este mes, imaginamos que nuestros 
lectores nos han maldecido a conciencia, 
de todos modos -como todo tiene solución 
en esta vída^- ahí van las páginas que no 
salieron. Disculpadnos, es culpa de los 
duendes. 




3270 ::SUB 3670 
3230 1F MI GF F = 13 THEN BOS'JB 3430 
3290 D*8T!CK<f) OF; STlCK(l) 
3300 IF D=0 AND E3=3 THEN Ei=i:E4=4:Y= 
110:6CTQ 3220 

3310 IF D=0 AND E3=12 THEN E1=10:E3=12 
:É4=13:Y=110:6OTO 3220 
3320 IF D=2 AND 11=1 OR D=3 AND M OR 
D=4 AND M THEN X=X+5:E1=1:E3=3:E4=5: 
Mi Mili S0UND3, 9: S0UND5, 16: SQUND9, 16 
: SOUND10 v 16: S0UND1 1 , 50: S0UND12, 0: SOUND 
13, 9: GOTO 3220 

333¿ IF 2=2 AND M=2 OR D=3 AND K=2 OR 
D=4 AND W=2 THEN X=X+5:Ei=2:E3*3:E4=6: 

W=1:Y=110:SOUND3,9:SOUND9,16:SQUND10,1 
¿ : SQÜND 1 1 , 1 £ : SOl'ND 12,0: SOUND 13,?: GOTO 

3220 

334t IF D=6 AND 2=1 OR 0=7 AND 1=1 OR 
C=8 AND Z=l THEN X=X-6:E1=10:E3=12:E4= 
1 4 : Z=2 : Y= 1 1 1 : S0UND3 , 9 : S0UND9 , 1 6 : SOUND 1 
0,16:SOUND11,50:SOUND12,0:SOUND13,9:GO 

TO 3220 

3350 IF D=6 AND Z=2 OR D=7 AND Z=2 OR 
D=8 AND 1=2 THEN X=X-6:E1=11:E3=12:E4= 
15: Mi Y=l 10: S0UND3, 9: S0UND9, 16: SOUND 1 
0,16:SOUND11,10:SOUND12,0:SOUND13,9:GO 



TO 3220 

336? IF D=5 AND E3=3 fHEN Mt&ltWtt 

4»«iPUiY"Vi*LHR6's68TC 3220 

3370 IF D=5 AND E3=12 THEN Mídii^M 

:E4=18:PLAY"V:0L64O5G":GC T C 3220 

3380 GOTO 3220 

3390 IF P«ti THEN 1420 

3400 ÍF MI THEN 1500 

3410 IF M2 THEN 1560 

3420 IF P=13 THEN 1620 

3430 IF X'135 AND frlil AND Y 96 THENG 

OSUB5330 :G0T0 «ÓÜ 

3440 RETURN 

3450 SALTO ■ 

3460 IF D=5 THEN 3220 

3470 PLAY-yiíLÓAOéC-^VlSLbAOSG-* 

34B0 Y=Y-6 

3490 IF D=3 THEN 3510 
3500 IF D=7 THEN 3590 
3510 E1=7:E3=3:E4=8 
3520 FOR 1=0 TO 4 
3530 Y=Y-4 

3540 IF D=3 THEN X=X+5 
3550 60SUB 3670 

3560 PUT SPRITE 1,(X,Y),11,E1:PUT SPRI 
TE 2,(X,Y),6,E3:PUT SFRITE 3,(X+2,Y+16 
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3570 NEXT I 
3580 Y=110:GOTQ 3240 
3590 E1=16:E3=12:E4M7 
3600 FOR 1=0 TO 4 
3610 IF D=7 THEN X=X-5 
3620 Y=Y-4 
3630 60SUB 3670 

3640 PUT SPRITE 1, (X,Y),11,E1:"UT SPRI 
TE 2,(X,vi (il ,E3:PUT SPRITE 3,'X-2.Y-i6 
),2,|4 
3650 NEXT I 

3660 Y=110:6OTO 3240 

3670 PAJAROS ■ 

3680 IF P=10 OR P=!2 THEN 36*0 ELSE 37 

50 

3Ó90 X1--X1-9 

3700 IF Xl='!20 THEN Xl=255 

3710 IF X=>Xl-5 AND X=<X1+15 AND Y=<11 

0 THEN G3SUB 5330: GOTO 4640 

3720 PUT SPRITE 10, (XI, Vil ,12, VI 

3730 SHAP Vi, V2 

3740 RETURN 

3750 Xl=Xl-9:X2=X2-9 

3760 IF Xl=<20 THEN Xl=255 

3770 IF X2=(20 THEN X2=255 



■ 






La más rápida 
y completa batalla 



espacial 
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| El importe de mi pedido lo hago efec- | 
. tivo mediante: 

□ Cheque adjunto a nombre de: 
i MSX CLUB DE CASSETTES 
1 C/Roca y Batlle, 10-12, bajos. 1 
I 08023 Barcelona | 





57M :F X=; Xl-5 AND X*<tÍ+i5 AND Y=<11 

0 OF X= X2-5 AND l*<X2*15 AND ¥«<ül T 

HEN SQSL'B 5330:GOTO «640 

3790 PUT SPRITE 13, (XI, Yl) faW 

3800 PUT SPRITE 11, (X2,Y1) ,13, V2 

3810 SWAP VI, V2 

3820 RETURN 

3830 •■■ CIRCUITO 1 * 

3840 Y=I10:El = l:E3=3:E4=4:E5=5:ti=l:Z=l 

:Xl=225:Yl=90:X2=122:Vi=31:V2=32 

3850 60SU6 im 

3860 IF STFIG CP 5TRIB(l)=-i TH 

EN GOTO 4140 

3870 PUT SFRITE I. (X,Yi,ll,El:PUT SPRl 
TE 2,(X,Y),c,E3:*UT SPRITE 3,íX,Y+16), 
2,E4 

3880 IF 0=3 AND -230 THEN PUT ÍPRJTÉ 
l,tf,Y),|lW SPRITE 2,!X,Y),0;PUT SP 

RITE S,(X,YtU» f liFlíT 3FFITE ÍÍ t Ul t 1\ 

?,0:Fü7 SPRITE 11,'X1,V1;,0:PUT SPRITE 
i2,íXi,Yi¡,d: t :NE''0,86)-'2f5,131),l,B 

F:5GT0 4030' 

3890 IF D--7 AND t*<\ THEN X=0 

3900 P=3 5F. P«4 GR P=5 OR P=6 3P P= 

7 THEN GOSUfi 4400 

3*10 IF P=l OF M THEN 3°40 ELSE 3920 
3920 IF X '48 AND X)27 AND Y>98 OR Ktf 
3 AND D82 AND Yiffl OR X< 158 AND 1)13? 
AND im OR K<213 AND X v 192 AND Y>99 
THEN GOSUB 533I|60TO 4610 
3 C 70 50TO 3951 
3 C 40 GOSUB 4560 
3950 D=STICK(0) OR STICKÜ) 

3°60 IF D=0 AND E3=3 THEN El=l:E4=4:Y= 
110:6OTO 3350 

3970 IF 0=0 AND E3=12 THEN El=t0:E3=l2 
:E4=13: Y=110:6OTO 3850 
3980 IF D=2 AND M OR D=3 AND K=i CR 
D=4 AND M=l THEN X=X+5:E1=1:E3=3:E4=5: 
11=2: MU: S0UND3, 9: S0UND8, 16: S0UND9, 16 
: SOUND10, 16: S0UND1 1 , 50: S0UND12, 0: SOUND 
13, 9: GOTO 3850 

3990 IF D=2 AND W=2 OR 0=3 AND W=2 OR 
D=4 AND K»2 THEN X=X+5:E1=2:E3=3:E4=6: 
W=l : Y= 110: SGUND3, 9: S0UND9, 16: SOUND 10, l 

6:SQUND11,10:SOUND12,0:SOUND13,9:6CTO 
3850 

4000 IF D=6 AND Z=l OR D=7 AND Z=l OR 
D=8 AND Z=l THEN X=X-6:E1=10:E3=12:E4= 
14: Z=2: Mili S0UND3, 9: SOUND 0 , 16: S0UND1 

0,16:SOUND11,50:SOUND12,0:SOUND13,9:GO 
TO 3850 

4010 IF D=6 AND Z=2 OR D=7 AND Z=2 OR 
D=8 AND Z=2 THEN X=X-6:E1=11:E3=12:E4« 












15:Z=1:Y=110:SOUND3, 3 :SO , JND9,16:SOUND1 
e,16:SOUNCi;,10:SOUNDi:,0:SOUND13,9:6O 
TO 3850 

4020 íOTO 3850 
4030 IF F = l THEN 670 
4040 IF P=2 THEN 760 
4050 IF P=3 THEN 850 
4060 IF P=4 THEN 940 
4070 IF F=5 THEN 1000 
4080 IF P=o THEN 1060 
4090 IF P=7 THEN 1130 
4100 IF P=8 THEN 1240 
4110 IF P=9 THEN 1330 
4120 'GOTO '4200 
4130 SALTO ■ 
4140 IF D=5 THEN 3850 
4150 PLAVV15L64C6C/715L64055 
4160 Y=V-6 

4170 IF D=3 THEN 4190 
4130 IF D= 7 THEN 4290 . 
itn E1=7:E3=3:E4=8 
4200 FOF 1=0 T 0 4 
4210 Y=Y-4 

4220 IF D=3 THEN X=X+5 

4230 IF P=3 OR F=4 OP P=5 OR P=6 OR P= 

7 THEN GOSUE 4400 

4240 IF P=l OR P=9 THEN GOSUB 4560 

4250 PUT SPRITE 1, (X,Y) ,11,E1:PUT SPRI 

TE 2,ÍX,Y),6,E3:PUT SPRITE 3,'X+2,Y*16 

) f 2 E4 

4260 IF X<48 AND X>27 AND Y: 110 OR til 
03 AND X>82 AND Y>110 OR X<158 AND X>1 
37 AND Y>110 OR X<213 AND X>192 AND Y ■ 

110 THEN GOSUB 5330:GOTO 4610 
4270 NEXT I 

4280 Y=110:6OTO 3870 
4290 E1=16:E3=12:E4=17 
4300 FOR 1=0 TO 4 






T 



4310 IF 0*7 THEN X=X-5 
4320 Y=Y-4 

4330 IF P*4 OP M QF P»6 OR P*7 GR P« 

6 THEN ECSUB 4400 

4340 IF P»i QP F=° THEN GGS'JB 4560 

4350 PUT SFRITE 1, iX, v) , 1 1,E: :P'JT SPRI 

TE 2, :X,Y),6,E3:FUT SPRITE 3. (X-Z, Y+16 

>,2,E4 

4360 IF X<4S AND X>27 AND mil OR X<1 

0! AND D82 AND Mil OR ¡K138 AND X>1 

37 AND YH10 QF H2Ú AND X M <?2 AND V, 

110 THEN GOSUB 5330:GO T G 4610 

4370 NEXf I 

4360 KtÜSDfO 33 7 « 

43*0 *■ FAJAROS ■ 

4400 IF P=;6 THEN 44EC ELSE 4410. 
4410 IF Xl=<20 THEN Xl=255 

4420 n*n-i 

4430 IF Xl=<20 THEN Xí=255 
4440 IF tmi'Z AND X=<X1*15 AND Y='98 
THEN GOSUB 5330: GOTO 4640 
«450 PUT SPRITE 10, (XI, Yl), 11. VI 



VI 



V¿ 



4460 3WAF 
4470 RETURN 
4480 Xl=Xi-9:X2=X2-9 
4490 IF Xl=<20 THEN X 1=255 
4500 IF X2=<'20 THEN X2=255 
4510 IF X=/Xl-5 -AND X=<X1+15 AND Y=í<?8 
OR X=>X2-5 AND X=- X2+15 AND Y=<98 THE 
N GOSUB 5330: 5CT0 4640 
4520 PUT SPRITE 10, (XI, Yl) , 10,71 
4530 PUT SPRITE 11, (X2,Y1),I4.V2 



4540 SWAP VI, V2 
4550 fiETURN 
4560 Xl=Xl-9 

4570 IF Xl=<2 THEN XI =255 
4580 PUT SPRITE 10, (XI, 67) , l, VI 







«590 SWAP V1,V2 
4600 RETURN 
46 10 •■■ MUERTE ■■ 
4620 IF D=5 THEN 3850 
4630 IF P«5 OF P=c OR P=7 OR c '=8 CP P= 
12 THEN 4960 
4640 Y=110 

4650 PUT SPRITE 10, (XI, Yl) ,0:P'JT SPFIT 
E 11, >:i,Yl),0:PUT SPRITE 12,(X1,Y1),0 
4660 PUT SPRITE i, ÍX,Y),Í:PUT SPRITE 2 
,ÍX,Y),0:PUT SPRITE 3,!X,v ,0 
4670 IF D=3 THEN 4o30 ELSE 4820 
4660 FOR T=0 TO 1 
4690 FOR 1=0 TO 25 

♦710 P07 SFF.: T E :,(>:-10,Y+l?',6,19:PUT 
SF : TE :,.:X-10,Y*10),11,20:PLT SPRITI 

3,(x-i8,Y+t« ,:,2: 

4710 NEXT I 

4720 m IH "3 !5* 

4730 PUT SPRITE 1, 1 ■ -'.}, \ « ;2) ,3,22:PUT 

SPRITE 2,(X-10,Y4LV ,;i,:::PUT SPRITE 

3,(X-IB,Y+10),2,21 
474Í NEXT I: NEXT T 
4750 PLAY "V12B" 
mi T : : 1=0 TO 30 

4770 put 5pfite 1. x-10, y+10! ,8, 19:put 
sprite :,o.-i¡V'':c:,;5,20:P ! jt sprite 

3,(X-20,Y+10»,2,2¿ 
4 7 E¿ f.EXT I:X=2 
4790 IF P=<9GCTQ 3840 
45¿: Ir F=U DF P=ll OR F = 12'CF Fj*Í,3 T 
h 2 < B u » • 

4810 IF F;=14 T -E!. ÍDTC 2020 
4820 FOR T=0 TO 1 
4830 FOR 1=0 TO 25 

4840 PUT SPRITE 1, (X*17,YM0> ,8, 19:P'JT 
SPRITE 2,(X*17,Y+10),11,20:PUT mili 
3, (X«f|T«tfl t 2,21 

4850 NEXT I 

4860 FOR !=0 TO 15 

4870 RUT SPRITE Í,(X*:?, ,£,22:PUT 

sf^:" :,'^r,y>i0\i:,:::PL ,T 

S,(X+9,Y*10;,2,2! 
4850 NEXT UWSV ' 
4EFÍ PLA V "B" 
4900 FOR 1=0 TO 30 

4910 PUT SPRITE :,!X+17,Y+10),B,1°:PÜT 
SPRITE 2,«*17 i Y*lf) > l5,2effai SPRITE 

4*22 NEXT I:X=2 
4930 IF P=<9 60T0 3840 
4940 IF P»tÍ OR P=ll OR P=12 OR P=13 T 
HEN 60T0 3220 

4950 IF P>=14 THEN GOTO 2020 




Te encuentras en un oscuro 
castillo abandonado, inten- 
tando encontrar una llave 
de oro para romper el he- 
chizo que te impide salir. 
Para lograrlo tienes que ha- 
cer estallar los barriles de 
TFT y esquivar los mons- 
truos y la corriente de lava. 
Un apasionante juego de 
aventura. 
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LA GIROMATICA (VI) 



TRATAMIEFTO 
MATEMATICO DEL 




Con este artículo concluye la serie de la GIROMATICA, interesante técnica de manejo de números complejos para 
desarrollar gráficos por ordenador, desarrollada por el autor. Aquellos lectores que deseen profundizar 
en el tema, pueden escribir a esta redacción indicando en el sobre "GIROMATICA". Esperamos que este singular trabajo 

les haya parecido tan interesante como a nosotros. 

10.1.- Expresión 
del giro 



p 



aira los curiosos y para los que 
deseen encontrar variantes, 
les propongo la fórmula mate- 
mática general que rige las operacio- 
. nes de giro del GIROMATIC. 

Sabemos que un número complejo 
w se expresa como w=a+b.i., siendo 
a la parte real, b la imaginaria e i= 
V— 1. Los valores de a y b coinciden 
con las coordenadas cartesianas del 
punto que representa en el plano 
complejo el número w. 

Sabemos también que un número 
complejo tiene la expresión trigono- 
métrica siguiente: 

w = R.(cos A sen A) siendo R= 
dVa*+b a ytgA=b/a 

R es el módulo y A el argumento del 
número w, en su representación en 
coordenadas polares. 

Sabemos también que para multi- 
plicar dos números complejos, se 
multiplican los respectivos módulos 
y se suman los argumentos, que dan 
respectivamente el módulo y argu- 
mento del producto. Así si v= S.(cos 
B+l.senB) el producto v.w. será 
v.w R.S.(cos (A+B) +i # sen 

CA+B). Por tanto, si multiplicamos 
un número complejo por otro de mó- 
dulo unidad y argumento B, ello equi- 
vale a girar el módulo del primero 
(R) un ángulo B adicional a su argu- 
mento A Por la misma razón, elevar 
al cuadrado el número de módulo la 
unidad y argumento B, da como re- 
sultado módulo uno y argumento 8.B 
y elevando a N se tiene el argumento 
N.B siempre con módulo la unidad. 

En el programa GIROMATIC, la fi- 
gura base viene definida por el núme- 
ro complejo w? = R.(cos C*C * >A)) + 
1 .sen(f ( JyAj)) variando JdeOaN. 
Girar un ángulo z cada punto, que es 
lo que hace el programa, equivale a 
sumar al argumento del punto que se 
considera el ángulo z y variando éste 
en el giro proporcional como J.h, se 
tendrá como expresión del primer 
punto: 





Figura formada a partir de un cuadrado de Efecto de duplicación de la an terior. 
40 puntos. 





Evolución de la elipse de 64 puntos. 



Margarita de 98 puntos. 



w ¿ = ° (eos h i.sen h) J y haciendo 
para simplificar v= eos h + i.sen h y 

designando por w^f la posición del 
punto después de M iteraciones, se 
obtendrá la siguiente serie para el 
giro proporcional: 

W l _ yjD yJ 

vA =wf.v J .V 1 =w9 .v^ 



YJ+(m-d.n 
La suma de los exponentes de v 



vale 
S = M.( J + 



(M-1).N 



) 







w° = wj.v^ 

El argumento final del punto J 
será por tanto: 
A" = f C JA) + M.J.h 

En el giro que hemos denominado 
acelerado se tiene: 
a = ( J M.N.) h 

y la serie que se forma será por tanto: 
wl = w° .v* 7 
= w°.v J .v J+N 



y tendremos por tanto = wj .v 8 

El argumento final del punto J será 
pues: 

A" f(JA) + M.h.(J + ) 

Es decir: "La giromática es la suce- 
sión de productos de números com- 
plejos". 

Se puede ver que para el giro trigo- 
nométrico, las expresiones anterio- 
res serían: 

siendo s = 2.P1.Q/N y el argumento fi- 
nal del punto J en la figura M: 

= 1 C JA) + M.H. sen Cs. J) 




30 



Podemos establecer una expresión 
general de la giromática en la forma: 

W* = Wj .v T(jr ' M) y de una forma más 
detallada: 

J = N 

W* = (eos (f(JA)) + i.sen 
(f(JA)). (eos H + i.sen h) F(J,M) 
J = O A = 2.k.Pi/N R, = f x (JA) 
Las dos funciones f y F se definen 
en el programa de acuerdo con las di- 
ferentes opciones para el argumento 
y la fórmula de giro, mientras que la 
función f A se define a partir de la elec- 
ción de la figura base. 

10.2.— Repetición de 

figuras: 

condiciones. 

De las expresiones anteriores, se 
pueden obtener la condición para la 
repetición de figuras en función del 
ángulo H elegido. 

Para que haya repetición en la figu- 
ra M es preciso que los argumentos 



de todos los puntos ( 1 a N) difieran 
de los originales en un múltiplo de 
8.PÍ, es decir que el ángulo acumula- 
do en los M giros sucesivos, sea múl- 
tiplo de 8.P1 para cualquier valor 
de J. 

De las expresiones del apartado 
anterior, puede verse fácilmente que 
para los giros proporcional y acele- 
rado, se debe cumplir: 

M.H. J = 2.Pi.m 
para cualquier valor de J y siendo m 
en principio un número entero cual- 
quiera Para que ello se cumpla para 
cualquier valor de J deberá ser: 

Pero de aquí se deduce también que m 
y M deberán ser primos entre sí pues 
si tienen un divisor común d, la repe- 
tición se producirá en la figura M/d 
ya que la expresión de H será válida 
también para m = m/d. 

Así, si queremos 100 figuras sin re- 
petición, tendrá que ser H = 
0, 062832. m. Hay por tanto infini- 
dad de valores de H para conseguir M 




Figura 
obtenida por 
giro 

trigonométrico 
de una recta 
senoidal. 



Valores del ángulo de giro H para la no repetición de figuras 



Condición: H = 2.m.Pi/M 

M = Número de figuras sin repetir 

m = entero no divisor de M 



M 


m= 1 


m= 11 


m= 13 


100 


.0628 


.6908 


.8168 


120 


.0521 


.5764 


.6807 


140 


.0449 


.4936 


.5834 


160 


.0393 


.4323 


.5105 


180 


.0349 


.3839 


.4537 


200 


.0314 


.3454 


.4084 


m 


M = 50 


M- 100 


M = 200 



1 

3 

7 

11 

13 

17 



.1257 

.377 

.8796 

1.3823 

1.6336 

2.136 



.0628 
.1885 
.4398 
.6912 
.8168 
1.068 




.0314 
.0942 
.2199 
.3456 
.4084 
.534 

9 



figuras consecutivas sin repetición. 
Evidentemente el menor número que 
cumple esta condición se tiene para 
m = 1. Sin embargo, con él se obtie- 
nen ángulos de giro relativamente 
pequeños, lo que da lugar a que dos fi- 
guras consecutivas sean muy pareci- 
das. Por ello se aconseja tomar valo- 
res de m mayores, con lo cual, aunque 
se llegarán a formar las mismas figu- 
ras, éstas no se formarán con seme- 
janza a la anterior, sino que se irá 
saltando por formas más diferencia- 
das. 

En la expresión que da el valor de H 
puede observarse que haciendo M su- 
ficientemente grande, el límite de H 
tiende a cero, y por tanto en las dos 
formas de giro indicadas, el GIROMA- 
TIC es una función continua de M y la 
diferencia de forma entre dos figuras 
continuas puede hacerse tan peque- 
ña como se quiera, pudiéndose exten- 
der el análisis matemático mediante 
cálculo diferencial. Pero dejaremos 
esta cuestión aparte. 

Para el giro trigonométrico (p.e. 
función seno), la condición de repeti- 
ción es: M.H.sen Cs.J) = 8.Pi. m 
también para cualquier valor de J. 
Ahora bien, como sen(s. J) es un va- 
lor irracional salvo en contados ca- 
sos, que se toma con una cierta apro- 
ximación, en teoría con estas funcio- 
nes, no se produce la repetición exac- 
ta de figuras, ya que la condición indi- 
cada no se cumple para todos los va- 
lores de J en la misma figura. 

Sin embargo, supongamos que to- 
mamos los valores de la función sen 
8. J con sólo dos cifras decimales, ya 
que con más la definición de la panta- 
lla no permite obtener puntos dife- 
rentes de los obtenidos tomando úni- 
camente dos decimales. Si multipli- 
camos los dos miembros de la igual- 
dad anterior por 100 tendremos: 

M.H.lOO.sens.J = lOO.S.Pi.m 
Ahora tendremos que 100. sen s.J 
son números enteros y por tanto, en 
el supuesto probable de que no haya 
ningún divisor común a todos ellos, 
habrá repetición de figuras si se cum- 
ple: 

M.H. = 100.2.Pi.m o bien 

mm 100.2.Pi.m 
M = 

H 

Aún para m = 1 y H = 1 tendremos 
M = 628.3 figuras y con un valor de 
H menor, el número de figuras sin re- 
petición sería mucho mayor. 

Hay que señalar finalmente, que la 
existencia de simetrías en la figura 
base, puede dividir por dos o por cua- 
tro el valor de M que da lugar a una 
repetición. 

Se acompaña una tabla con algu- 
nos valores de H, aunque es fácil cal- 
cularlos con el propio ordenador. En 
el programa se incluyen algunos de 
ellos. 

Por J.M. Climent Parcet 
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REDEFINICIOW DE 




Muchas consultas han llegado a esta redacción acerca del modo de redefinir el set de caracteres MSX. Habitualmente 
esto se solucionaba mediante complicadas y lentas rutinas; pero hay un modo mucho más sencillo, mediante este 

interesante programa que a continuación analizamos. 



E ate es un programa de mucha 
utilidad para todos aqueUos 
que ya empiezan a fabricar 
sus propios programas, pero que no 
han logrado esa profesionalidad que 
se puede apreciar en los programas 
comerciales. 

Esto es debido a que en muchos de 
los programas profesionales, se pre- 
senta un nuevo tipo de letras, que se 
adaptan al programa, causando con 
esto un buen efecto de presentación. 
Muchos lectores se habrán pregun- 
tado cómo se pueden redefinir las le- 
tras. No es este el momento de expli- 
car todo el proceso interno, ya que ya 
se escribió un artículo explicando 



todo acerca de este proceso en 
MSXClub Núm. 28, pero sí nos vamos 
a referir aquí al programa que permi- 
te rediseñar todos los caracteres que 
queramos, sin necesidad alguna de 
conocimientos previos sobre la 
VRAM. 

Mediante este programa podremos 
generar un nuevo repertorio de ca- 
racteres y grabarlo en cinta o disco 
en forma de subrutina, después nos 
referiremos más ampliamente a di- 
cha subrutina, pero ahora pasemos 
al funcionamiento de dicho progra- 
ma: 

Al hacer RUN (una vez arreglados 
todos los errores, para lo cual será 



muy útü el Test de Listado), aparece- 
rá una pantalla en la cual hay un cua- 
drícula de 8 x 8 y todos los caracteres 
que posee el MSX. En el primer carác- 
ter se distingue un cuadradito de co- 
lor verde. Dicho cuadradito puede ser 
desplazado por todos los caracteres, 
y tiene como función indicar al orde- 
nador el carácter que se desea modifi- 
car. La utilización de este programa 
se debe realizar en tres etapas: 

1 - Movimiento del cuadradito 

Podemos usar las siguientes teclas: 
- Cursores para desplazar el cua- 
dradito. 



LISTADO 



10 KEY OFF 

20 SCREEN 1,0 

30 HIDTH 30: COLOR 1,14,14 

40 CLS:CLEAR 15000 

50 DEFINT A-Z 

¿0 DII1 0(255) ,B$(262) 

70 PRINT- REDEFINIDOR DE CARACTERES" 

80 PRINT* 

90 FOP 1=1 T0 8:L0CATE 6, 3+ I : PRINT I ; : NEX 
T 

100 VPOKE 2000,255:VPOKE 14336, 255: VPOKE 
2007, 255: VPOKE 14343,255 
110 FOP 1=2001 T0 2006:9=129:VPOKE I.0:V 
POKE 12336+1, Q:NEXT 
120 PUT SPRITE 1,(200,55) ,4,1 

130 LOCATE 23, íi PRINT Vi' 

140 LOCATE 23,7:PRINT*| [■ 

150 LOCATE 23,8:PRINT' 1 -" 

160 LOCATE 8,3:PRINT , 12345678 < 

170 FOR T=l T0 8:F0R 1=1 T0 8:L0CATE 7*4 

,3+T:PRINTCHR«(250);:NEXT I,T 

180 N=1:F0R 1=6625 TO 6900 STEP 29:F0R T 

«I TO 1*29: IF T<6896 THEN VPOKE T,N:N=N+ 

l:NEXT:I=I*3:NEXT 

190 X=1:Y=1 

200 PUT SPRITE 0,(XI8,111+Yt8>,12,0 
210 A$=INKEYS:IF Ai=" THEN 210 
220 A=ASC(A$) 



230 IF A=29 THEN X=X-l:IF X=0 THEN X=30: 
A=3i 

240 IF A=30 THEN Y=Y-1:IF Y=0 THEN Y=l 
250 IF A=28 THEN X=X*1:IF X=31 THEN X=l: ' 
A=3t 

260 IF A=31 THEN Y=Y+1:IF Y=10 THEN Y=9 

270 IF A=13 THEN GOSUB 770: LOCATE 1.13:P 

RINT STRIN6K30,' '); 

280 IF A=67 THEN IF J=0 THEN J=1:L='.X+(Y 

-1)I30)I8:PUT SPRITE 2, (Xt8, 111+YI8) ,6,0 

:A=0:PLAY , V13T255L64A' 

290 IF A=67 THEN IF J=l THEN J=2:B=(X+(Y 

-l)t30)!8:D(B/8)=l:PUT SPRITE 2,1-10,-10 

),0,0:FOR I=B TO B+7:VP0KE I.VPEEK(L) :L= 

LM:NEXT:J=0 

300 IF A=65 THEN B=ÍX+ (Y- i ) $30) «8: DíB/B) 

=1:PLAY , V13T255L64B' 

310 IF Y=9 AND X > 1 4 THEN X=14 

320 IF A=32 THEN GOTO 340 

330 60T0 200 

340 B=U*(Y-l)t30)t8 

350 D(B/8)=1 

360 N=1:F0R I=B TO B+7 

370 Bt=BIN$IVPEEK(I)) 

380 IF LEN(B$)<8 THEN B$= , 0 , +B$:GOTO 380 

390 A$(N)=B$:N=NM:NEXT 

400 53SUB 680 

410 X=1:Y=1 

420 LOCATE 7+X,3*Y,l 

430 AI*INKEY1:IF AS=" THEN 430 

440 LOCATE 7*I,3+Y,I 

450 A=ASC(A$) 



460 IF A=29 THEN X=X-1 : IF X=0 THEN X=l 
4^0 IF A=30 THEN Y=Y-1 : IF Y=0 THEN Y=l 
480 IF A=28 THEN X=X+1:IF X=9 THEN X=8 
490 IF A=31 THEN Y=Y+1:IF Y=9 THEN Y=8 
500 IF A=32 THEN GOTO 560 
510 IF A=tl THEN 60SUB 640:GOTO 190 
520 IF A=13 THEN GOSUB 630:6OTO 190 
530 IF A=12 THEN GOSUB 640 
540 IF A=78 THEN GOSUB 730 
550 GOTO 420 

560 IF Í11D$(A$(Y),X,1)='P THEN 590 
570 HID$IA$IY),X,t)-- , l':PRINTCHRi(219); 
580 GOTO 600 

590 HID$(A$(Y),X,1).= , 0 , :PRINTCHRÍ(250); 
600 GOSUB 610:6OTO 420 
610 VPOKE 14343+Y,VALC«'+A$(Y)) 
620 RETURN 

630 N=1:F0R I=B TO B+7-.VP0KE I,VAL('W + 
A$(N)):N=N+1:NEXT 

640 FOR 1=1 TO 9:A$(I)="00000000':NEXT 
65« FOR 1=14344 TO !4352:VP0KE I,0:NEXT 
660 FOR T=l TO 8: FOP 1=1 TO 8: LOCATE 7*1 
,3+T:PRINTCHR$(250);:NEXT I,T 
670 RETURN 

680 FOR T=l TO 8: FOR 1=1 TO 8 

690 IF MDi(A$(T),I,l)='0" THEN LOCATE 7 

+ I,3+T:PRINTCHM(250); 

700 IF I1ID$(AI(T),I,1)='1' THEN LOCATE 7 

+I,3+T:PRINTCHR«(219); 

710 NEXT:Y=T:60SUB 610:NEXT 

720 RETURN 

730 N=Y:F0R T=l TO 8:F0R 1=1 TO 8 
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- Barra espadadora para pasar a la 
etapa número 2. 

- La tecla C, para copiar un carácter. 
Cuando se haya pulsado dicha te- 
cla, aparecerá un cuadradito rojo 
que nos indicará el carácter que 
vamos a copiar, al volver a pulsar 
(si se pulsa dos veces sobre la mis- 
ma letra, se abortará la función) la 
tecla, la letra inicial se copiará en 
la que estemos situados. 

- La tecla A, para actualizar una le- 
tra. El programa generará una su- 
brutina con las letras que hayan 
sido modificadas, pero si por cual- 
quier motivo queremos que una le- 
tra no modificada aparezca en la 
subrutina, bastará pulsar la A en- 
cima de la letra deseada. 

- La tecla RETURN, que nos pasará a 
la etapa número 3. 



2 - Modificación del carácter 



Redefíxüendo caracteres puede obtenerse efectos tan interesantes como el de la Üustra- 
cíón. 



Podemos usar las siguientes teclas: 
Cursores para desplazar el cursor. 
Barra espadadora para poner un 
punto si no lo hay o quitarlo si lo 
hay. 

Shift + HOME para dejar toda la 
rejilla en blanco. 



740 IF MID$(A$(T),I,1)='0' THEN HID$(A$( 
T),I,l)='l' ELSE MID$(A$«T),I,1)= , 0' 

750 LOCATE 7+ 1 , 3+T : PRINTCHRt (256-3 1 tVAL ( 
Í11D$(A$(T) , I, l) } > :NEYT: Y=T:60SUB 610:NEX 
T 

760 Y=N: RETURN 

770 LOCATE 1. 13:PRINT'Desea finalwar (S 
/N)? , j 

"80 As=INPUT*(l>:PRINTA$; 
790 IF A*=*S' OR A$=V THEN RETURN 820 
800 IF A$='N" OR A$="n" THEN RETURN 
810 GOTO 770 

820 CLS:PUT SPRITE 0, (-10,-10), 0,0:LOCAT 

E 2,10:PRINT'Estoy procesando datos . .' 
830 B$(1)='SCREEN 1:C0L0R 1 , 1 4, 14: WIDTH 
30:DEFINT I,T' 

840 B$'2)="READ A: FOR T=l TO A' 

350 S$(3!='READ B: FOR I=BI8 TO Bl8+7:REA 

D C:VP0KE I,C:NEXT:NEXT" 

860 B$(4)='N=6!44:F0R ! = 1 TO 255:VP0KE N 

+1, I:NEXT* 

870 N=6:F0R 1*1 TO 25! 
880 LOCATE 10,15:PP!NTI 
890 IF D(I) = 1 THEN GOSLÍB 1020 
900 NÉXT 

910 IF N=6 THEN PRINT: PRIMT'No ha tcáifi 

cado carácteres':END 
920 B$(5)='DATA'+STR$(N-6) 
930 D=0:LOCATE 2,19: INPUT'Nuiero de line 
a';D:IF B=0 THEN 60T0 1150 
940 LOCATE 2,21:PRINT'(C 



950 A=0:A$=INPUT$(1):PPINTA<; 
960 IF A$='C" THEN A=l 
970 IF A*="D' THEN A=2 
980 ¡F A=0 THEN 60T0 940 

990 A$=":L0CATE 2,23: INPUT'NOHBRE: '\M 
1000 IF A$=*' THEN 1150 

1010 GOTO 1070 

1020 B$(N1 s'ÜATA'tSTRKl) 

1030 FOR T=H8 TO !!8^ : Ai=STP$<VPEEK(T) 

) 

1040 As=RIGHT$(A$,LEN'A«)-í> 

1050 B$(N)=B*(N)+-."+Ai 

1060 NEXT:N=N+1 ¡RETURN 



1070 IF A=l THEN OPEN'CAS-.'^At FOF OUTRU 
T AS II 

1080 IF A=2 THEN 0PEK'A:'*Ai FCP OUTPUT 
AS II 

1090 B$(N1='END" 

1100 FOR I s l TO N 

1110 PRINTIl,STR$(D):Bi(I) 

1120 PRINTSTM(D);' ";B$(I>:D=D*ll:NEXT 

1130 CLOSE 

1140 END . 

1150 CLS:PRINT"Operación interruipida' 
1160 PR INT : PRINT "Tecl ee : 60T0 °10 si des 
ea continuar . * 




co 




TEST DE LISTADO 



10 


-183 


160 


-228 


310 


-132 


460 


-180 


610 


- 39 


760 


- 94 


910 


- 5 1060 - 19 


20 


- 20 


170 


- 37 


320 


-144 


470 


-185 


620 


-142 


770 


-126 


920 


- 69 1070 -156 


30 


-104 


180 


-138 


330 


- 95 


480 


-194 


630 


- 40 


780 


-203 


930 


-125 1080 - 7 


40 


- 89 


190 


-237 


340 


-165 


490 


-201 


640 


-103 


790 


- 37 


940 


- 3 1090 - 15 


50 


- 57 


200 


-240 


350 


-229 


500 


-109 


650 


-150 


800 


-214 


950 


- 70 1100 -243 


60 


- 47 


210 


- 87 


360 


-169 


510 


- 91 


660 


- 37 


810 


-156 


960 


-130 1110 - 84 


70 


-102 


220 


-122 


370 


-115 


520 


- 33 


670 


-142 


820 


-207 


970 


-132 1120 -234 


80 -102 


230 


-102 


380 


- 36 


530 


-205 


680 


-193 


830 


-211 


980 


"236 1130 -180 


90 


-109 


240 


-185 


390 


-222 


540 


-105 


690 


-252 


8*0 


- 33 


990 


-175 H40 -129 


100 


- 15 


250 


-103 


400 


- 69 


550 


- 60 


700 


-222 


350 


- 82 


1000 


-141 1150 -136 


110 


- 64 


260 


-201 


410 


-237 


560 


-203 


710 


- 79 


860 


-223 


1010 


-201 1160 -222 


120 


-209 


270 


-148 


420 


- 1 


570 


-222 


720 


-142 


870 


- 65 


1020 


-111 


130 


- 91 


280 


- 77 


430 


- 57 


580 


-241 


730 


-145 


880 


- 79 


1030 


-254 


140 


-255 


290 


-233 


440 


- 0 590 


-252 


740 


- 26 


890 


-222 


1040 


- 2 TOTAL: 


150 


- 97 


300 


-138 


450 


-122 


600 


-117 


750 


-121 


900 


-131 


1050 


-176 15227 
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Además de crear curiosos alfabetos, la redeñnlclón de caracteres posibilita la creación 
de in teresan tes pan tallas. 



■i 


ANHATTAN . 
TRANSFER 










m MARCIANOS 






Estas dos carátulas de videojuegos han sido realizadas empleando la técnica de redefí- 



- HOME para volver a la etapa 1 sin 
modificar el carácter. 

- La tecla N para crear un negativo 
de la cuadrícula. 

3 -Finalizar 

Las preguntas a responder son: 

- Finalizar (S/N) ?. SI pulsamos N 
volvemos a la etapa 1. 

- Procesa datos (hasta que el conta- 
dor llegue a 255). 

- Número de líneas donde queremos 
que comience la subrutina. 

- Grabarla en Cassette o en Disco. 

- Nombre de la subrutina. 

Nota: Si no se desea grabar la su- 
brutina, bastará no poner número de 
línea o no poner ningún nombre, en 
cuyo caso aparecerá un mensaje por 
si queremos continuar. 



La subrutina creada será grabada 
con formato ASCII (es decir, habrá 
que cargarla con LOAD), lo que per- 
mitirá hacer un MERGE con el pro- 
grama principal y llamarla en forma 
de subrutina. La subrutina de por sí, 
se encarga de redefinir los caracteres 
y los presenta en pantalla. Esto lo 
hace en la cuarta línea, la cual es con- 
veniente deletear si se une a un pro- 
grama. También es necesario cam- 
biar en dicha subrutina el END que se 
encuentra al final por un RETURN. 
Las líneas de DATAS se dividen de la 
siguiente forma: 

- Un DATA inicial que dice la canti- 
dad de definiciones que hay que 
leer. 

- Todas las definiciones, que están 
repartidas en líneas de 9 datos 



cada una. El primer dato indica el 
número de carácter y los 8 restan- 
tes su forma. 

La estructura del programa es la 
siguiente: 

Escribir la pantalla e ini- 
cializar los valores. 
Control de la etapa núme- 
ro 1. 

Averiguar el número del 
carácter elegido y colo- 
carlo en la cuadrícula: 
Control de la etapa núme- 
ro 2. 

Poner/quitar un punto. 
Almacenar el carácter y 
borrar la parrilla. 
Esta subrutina coge los 
datos que definen a un ca- 
rácter, los decodifica a bi- 
nario y coloca puntos 
donde el bit esté a 1. 
730-760: Crea el negativo de un ca- 
rácter, donde había un 
punto coloca un espacio y 
viceversa. 
770-810: Finalizar. 

Control de la etapa núme- 
ro 3. 



10-180: 
190-330: 
340-400: 



410-550: 

560-620: 
630-670: 

680-720: 



TABLA DE VARIABLES 



A: 
B: 
D: 



D(255): 



I: 
J: 



L: 

N: 
T: 
X: 

Y: 

A$: 

A$(8): 
B$: 

B$(262) 



Valor de A$ en código AS- 
CII. 

Posición de VRAM del ca- 
rácter destino de una copia. 
Entrada del número de lí- 
nea a partir del cual se ha 
de colocar la subrutina. 
Matriz que indica los valo- 
res modificados, si un ca- 
rácter es usado, el código 
ASCII de dicho carácter se 
pone a 1 . 
Bucles For Next. 
Se pone a 1 cuando se ha 
pulsado la tecla C ( copiar ) y 
se pone a 0 cuando se ha 
vuelto a pulsar. 
Posición de VRAM del ca- 
rácter origen de una copia. 
Es usado como un contador. 
Bucles For Next. 
Posición X del cuadrito o 
del cursor. 

Posición Y del cuadrito o del 
cursor. 

Carácter entrado por el te- 
clado. 

Almacena los 8 valores de 
B$. 

Código binario de los datos 
que definen a un carácter. 
:Se almacenan todas las lí- 
neas de la subrutina creada. 



Si logras realizar un nuevo reper- 
torio de caracteres que creas que val- 
ga la pena editar, envíalo a mi aten- 
ción grabado en un cassette o en un 
listado. 



Por Ronald Van OlnJcel 
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YA ESTA EN TU QUIOSCO. Sto 



UNA REVISTA EXCEPCIONAL. Stop 




Diseñada para servir 



al usuario de un PC. Stop 



EL COMO Y EL POR QUEDE 



UN STANDAR COMUN Stop 




OTRO PRODUCTO MANHATTAN TRANSFER; S.A. Stop 



A la vanguardia de la prensa útil. Stop 



Para sn delegación en la capital 

KOKAMI BUSCA 
DIRECTOR 

Nuestros amigos de "Konami" nos 
informan de que necesitan un 
DIRECTOR para su tienda de Ma- 
drid. Los interesados para cubrir dicho 
puesto, pueden informarse ampliamente 
en: SERMA, C/ Cardenal Belluga, 2 1 . 28028 
Madrid. 



. -' -H J , 



El nuevo videojnego de Konami 



"NEMBSIS": 
PRESENTACION 
EN MADRID 

El pasado 26 de marzo, fue presen- 
tado en la "Konami Shop" de Ma- 
drid, el divertido videojuego "Né- 
mesis"; un nuevo lanzamiento editado en 
MSX por Konami, y distribuido por SER- 
MA. A lo largo de la presentación, tuvimos 
la ocasión de conversar con Mr. Allwood, 
representante de Konami expresamente 
desplazado hasta la capital con motivo del 
evento. Durante la charla, el señor All- 
wood insistió en la supremacía técnica 
respecto a Europa de los más de seiscien- 
tos programadores con que cuenta Kona- 
mi en Osaka (Japón). Una superioridad 
que —de momento— les hace descartar el 
pensar en hacer nuevas conversiones a 
MSX de programas realizados en Gran 
Bretaña. Por otra parte, Mr. Allwood se 
mostró muy satisfecho por la aceptación 
con la que el público asistente acogió a 
"Némesis", un juego básicamente de ac- 
ción cuya particularidad radica en el can- 
je por armamento de los puntos obtenidos 
durante la 



TRON: SOLO 
VIDEOJUEGOS 



Próxima apertura de "tron", un nue- 
vo establecimiento situado en la ca- 
lle Bailen número 92 de Barcelona 
cuya dedicación primordial será la venta 
de cartuchos de videojuegos, en todo tipo 
de sistemas. Desde estas páginas les de- 
seamos lo mejor en su cometido. 



Dentro de su ¿ama 



de microinf ormática 



ELBE LANZA 
UN NUEVO 
PRODUCTO 



E 



lbe Microsystems anímela el lan- 
zamiento de un nuevo monitor en 
formato de catorce pulgadas; el 




MCP-4026, un modelo compatible con 
todo tipo de ordenadores e incluso magne- 
toscopios, puesto que opera con señal de 
vídeo compuesto, incorporando para ello 
una sencilla conexión tipo jack. A desta- 
car su excelente relación calidad/precio. 
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Concurso Sony 



ENTREGA DE PREMIOS 
DEL SEGUNDO CONCURSO 
DE PROGRAMAS SONY 



Ya en su segunda edición, asistimos 
a la entrega de premios del concur- 
so Sony de programas MSX. 
Este concurso, abierto a todos los usua- 
rios de MSX pretende potenciar el uso de 
los ordenadores domésticos del estándar. 
De este modo se intenta conseguir que los 
ordenadores sean elementos activos den- 
tro de la dinámica familiar, y que no sean 
considerados como un electrodoméstico 
más. 

Se pretende, de igual forma, que los 
usuarios participen en el desarrollo de los 
programas, y que no sea un reducido gru- 
po el que se enfrente a la tarea de la pro- 
gramación. Esta es la única forma de obte- 
ner el máximo rendimiento a nuestro or- 
denador. 

Según los organizadores del concurso, y 
como nosotros mismos pudimos consta- 
tar, la calidad de los programas de esta se- 
gunda edición ha superado a la de los pre- 
sentados en la primera y pese a que los te- 
mas de los programas presentados han 
sido muy diversos, los concursantes han 
preferido los programas de carácter cien- 
tífico y de aventuras. 

Los premios han sido otorgados por un 
jurado, compuesto por importantes per- 
sonalidades de la informática nacional, 
que se reunió en la sede social de SONY el 




pasado 24 de marzo para examinar los 
programas y posteriormente deliberar 
hasta la decisión de los programas gana- 
dores. 

Intervenían en este jurado personalida- 
des provenientes del Ministerio de Educa- 
ción, del Centre Divulgador de la Infor- 
mática de la Generalitat de Catalunya, de 
la Universidad Politécnica, de LA VAN- 
GUARDIA y de Manhattan Transfer, ade- 
más de altos cargos de Sony. 

En el concurso se distinguían dos cate- 
gorías. La categoría de centros docentes, 
en la que se debían desarrollar programas 
de tema educativo y la categoría general, 



Nuevas aventuras interactivas 

TELAEIUM: 
LA ODISEA 

coraruA 

Los adictos a "Telarium" están de 
enhorabuena; Idealogic anuncia 
la aparición de nuevas aventuras 
interactivas para sistema MSX 2. Esta se- 
rie, se caracteriza por ser una de las pri- 
meras que aparecen en español, contando 
con un analizador sintáctico de lenguaje 



>4ro# d* •»t» «ventura. ?• «r~r i 
^♦cu»»r«r ti ttforo enterrado del in 



rae * 



PULSA "J" PARA JUGAP 




La isla del tesoro. 



PHIU 




TELARIUM 



9 príncipes enAmber. 



capaz de comprender entre 500 y 700 pa- 
labras, gracias al cual, el usuario puede 
"hablar" con los distintos personajes de la 
serie. 



Notable actividad informática de 
la Generalitat 

TALLERES Y 
NUEVA GUIA'87 

A través de su "Centre divulgador de 
la informática", el gobierno cata- 
lán, ha puesto en funcionamiento 
un nuevo servicio denominado "taller de 
demostraciones". La iniciativa consta de 
una serie de sesiones monográficas con 
una duración de hora y media, dirigidas a 
empresarios que deseen enriquecer sus 
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conocimientos en algún aspecto concreto 
del extenso campo que la informática apli- 
cada a la gestión empresarial ofrece. Asi- 
mismo, la entidad autónoma acaba de po- 
ner en circulación la "Guia del usuario de 
informática'87 M ; completo manual orlen - 
tativo en el que junto a una recopilación 
de todas las empresas del sector y sus ca- 
racterísticas, se recoge la relación com- 
pleta de todos los programas profesiona- 
les para microordenadores, actualmente 
disponibles en el mercado. Mas informa- 
ción llamando al teléfono 301 11 12 de 
Barcelona. 



en la que se permitía cualquier tipo de pro- 
grama presentado a título particular. 

En la categoría de Centros Docentes re- 
sultó vencedor el programa Motor 4 de 
José V. Beltrán Prieto, del Liceo Europa en 
la Línea de la Concepción. Este programa 
muestra el funcionamiento de un motor 
de cuatro tiempos. 

Otros programas finalistas, expuestos 
en la entrega de premios, versaban en te- 
mas como ciclos lltológicos, test cultura- 
les, genética, y un curso de mecanografía. 

Volviendo al programa MOTOR 4, se tra- 
ta de una visión del funcionamiento de un 
motor de cuatro tiempos, §n movimiento 
gracias a la utilización de numerosos 
sprite8, y que controlamos por medio del 
joystick. Pueden observarse también, 
aparte del funcionamiento normal del 
motpr, otros puntos de interés, como el 
sistema de encendido o el cambio de mar- 
chas, todos ellos en movimiento. 

El programa fue totalmente desarrolla- 
do en BASIC, utilizando la capacidad gráfi- 
ca del SCREEN 2 y utilizando sprites para 
las fases en movimiento, excepto al prin- 
cipio en que se utiliza SCREEN 1 para la 
presentación. 

Tras la entrega del premio, 1 .000.000 de 
ptas. en productos Sony, tuvimos la opor- 
tunidad de conversar con el ganador de 
este programa. He aqui un resumen de lo 
comentado con él. 

—¿Quién ha desarrollado el programa? 
¿Una persona, un equipo dentro de cole- 
gio...? 

-No no, el programa lo he desarrollado 
yo solo -nos comenta José V. Beltrán-. El 
colegio ha colaborado con el equipo y con 
ayuda de todo tipo. 

-¿Cuánto se tardó aproximadamente 
en realizar el programa? 

—Naturalmente trabajando fuera de las 
horas de trabajo, unas tres horas diarias 



durante unos dos meses quizá. 

-¿Cuál ha sido la característica más di- 
fícil de implémentar? 

—Pues casi el programa en sí porque se 
basa en un programa que no fue desarro- 
llado para los MSX y ha habido que traspa- 
sarlo. Yo creo que eso ha sido lo más inte- 
resante, adaptarlo a la capacidad gráfica 
que tienen los MSX. 

Aprovechamos desde aquí para trans- 
mitir tus saludos a la Línea de La Concep- 
ción y esperamos que se siga oyendo el 
nombre de esta localidad en otros concur- 
sos informáticos. ¡Enhorabuena! 

En la categoría general resultó vence- 
dor el programa DRAW, realizado por Mi- 
guel Ramis Amengua! El programa per- 
mite dibujar por medio de los cursores, 
realizándose diversas operaciones con las 
teclas de función: cambio de color, borra- 
do, relleno de figuras, trazado de círculos, 
impresión de textos, almacenar y cargar 
la pantalla del cassette y volcarla por im- 
presora. Tal vez una de las características 
más interesantes de este programa es que 
permite la realización de dibujos con si- 
metrías. 

En este caso el programa ha sido reali- 
zado principalmente en BASIC pero in- 
cluye rutinas en ensamblador. Este pro- 
grama fue premiado con 500.000 Ptas. en 
productos Sony. 

A continuación incluimos un resumen 
de los comentarios que sobre el programa 
nos hizo su autor. 

—¿Por qué un programa de gráficos pre- 
cisamente? 

-Ya hacía tiempo que me rondaba por la 
cabeza hacer un programa sobre diseño 
gráfico. Tenía bastantes cosas preparadas 
así que me puse a juntar programas y de 
ahí salió. 

-¿Cuánto tardaste en realizar el pro- 
grama? 



-Como ya te he dicho, el programa lo te- 
nia pensado desde hace mucho; pero en 
juntarlo todo tardé unos dos meses, traba- 
jando 3 ó 4 horas diarias. 

-¿Cuál ha sido la parte más difícil de 
programar? 

-Para mí lo más difícil ha sido hacer las 
rutinas en código máqiilna. Salen; pero 
tardo mucho más tiempo que en BASIC 
porque he trabajado mucho más en BASIC 
que en código máquina. 

Haciendo un repaso al resto de los pro- 
gramas premiados no podemos olvidar- 
nos de programas como MATH y GRAFO, 
segundos premios en su categoría, y que 
permiten, respectivamente, la represen- 
tación de funciones matemáticas (hasta 5 
simultáneamente) y la generación de grá- 
ficos lineales, barras en 3D, que pueden 
volcarse sobre plotter. 

En el capítulo de terceros premios cabe 
citar a HADES, juego de aventuras en que 
debemos recoger letras por un peligrosísi- 
mo laberinto. Otros dos programas que 
han conseguido el tercer premio —dotado 
de 100.000 ptas.— son Simphony, que per- 
mite tocar música con el teclado, simulan- 
do dos teclados que pueden sonar simultá- 
neamente. Y "Sonidos", un programa que 
permite experimentar con el chip de soni- 
do de los MSX, generando formas de onda, 
modificando los sonidos, etc. 

En la categoría de centros docentes, y 
como finalistas, destacan programas 
como el de ciclos litológicos o el de genéti- 
ca entre otros. 

En la gran mayoría de loe casos se ha 
hecho patente la Juventud de los ganado- 
res, que prometen como futuros informá- 
ticos. Destaquemos el ganador del primer 
premio en la categoría general, Miguel Ra- 
mis Amengua!, de 16 años, y que nos ad- 
vierte que piensa seguir adelante con la 
informática. 
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Wos encontramos aquí con uno de 
los mejores juegos (a mies tro 
entender) de arcade que se haya 
visto para un MSX2, con una calidáctjjue 
iguala a las máquinas de los bares? • 

Nuestra misión es pasar las 18 panta- 
llas que componen este Juego (en realidad 
sólo hay 6 pantallas distintas, pero pasa- 
da cada etapa, estas 6 pantallas se repiten 
con mayor dificultad y nuevos tipos de 
marcianos), para lo cmbA disponemos de 
un equipo compuesto dos naves, las 
cuales se pueden acoplar, pudlendo así 
utilizar las armas opcionales, un cañón 
láser por cada nave y un arma opcional 
(Bullpup) también por cada nave. 

Las armas opcionales se van consi- 
guiendo a medida que aumenta nuestra 
pericia en el juego, estas armas opciona- 
les son: 

- TWIN (cañón volcánico doble): Esta es 
el única arma que se posee en un princi- 
pio del juego. Consta de dos disparos en 
forma de bolitas. Su eficacia es bastante 
reducida, pero sirve para habituarse al 
manejo de la nave. Pasado un cierto ni- 
vel, este cañón es sustituido por un lá- 
ser, no pudiéndose recuperar este tipo 
de arma. 

- TOBA: Es el cañón láser propiamente 
dicho, dispara una larga línea continua 
(cuanta más experiencia, más larga 
será), y destruye todas las naves enemi- 
gas que la toquen, la principal ventaja 
sobre el TWIN es que mientras los pro- 
yectiles que dispara éste se desintegran 



r 



al tocar a una nave enemiga, el TORA no 
se desintegra. Este arma estará siem- 
pre disponible. Otra característica es 
que se mueve siempre con nuestra 
nave, de manera que siempre lo tendre- 
mos encima. 

BULLPUP: Este misil, una vez consegui- 
do, estará siempre disponible cuando 
ambas naves estén separadas. Su fun- 
ción es la de destruir los objetivos te- 
rrestres, que se dividen en: 
Francotiradores: Son unas construc- 
ciones de un tamaño inferior al de 
nuestra nave, que disparan irnos pro- 
yectiles idénticos a los disparados por 
el TWIN, conviene destruirlos cuanto 
antes: 

Bases de aprovisionamiento: Son más 
difíciles de distinguir, ya que pese a ser 
del mismo tamaño que los francotira- 
dores, no disparan, y poseen formas 
más variadas. 

La destrucción de un objetivo terrestre 
aporta una determinada cantidad de 
energía, pero estos sólo están en la pan- 
talla pares (2,4,6,...). Este misil es inde- 
pendiente de la nave una vez disparado, 
siguiendo una trayectoria recta y se au- 
todeslntegra cuando ha recorrido una 
distancia equivalente a la mitad de la 
pantalla. Para dispararlo por el teclado 
basta pulsar la tecla SHIPT. 
ADEN: Sólo se podrá utilizar cuando 
ambas naves se acoplen. Es un arma 
bastante útil en los escenarios espacia- 
les (es decir los impares). Su funciona- 
miento está basado en el TWIN, pero a 
diferencia de éste, dispara en cuatro di- 
recciones del espacio. No posee gran 
precisión, pero permite destruir las na- 
ves que se encuentren a nuestros lados. 
BULLDOG: Sólo se podrá utilizar cuan- 
do ambas naves se acoplen. Es una ver- 
sión mejorada del BULLPUP, pero a di- 
ferencia de este, no se autodestruye y 
puede ser controlado por el copüoto 
(moviéndolo de derecha a izquierda). 
Tiene gran utilidad en las pantallas con 
objetivos terrestres, ya que permite 
destruir los francotiradores sin necesi- 
dad de ponerse debajo de ellos (con lo 
que casi siempre se recibían un par de 
impactos). 

CONDOR: Sólo se podrá utilizar cuando 
ambas naves se acoplen. Es una versión 
perfeccionada del BULLDOG, ya que es- 
tará controlado por un sensor térmico 
que destruye todas las bases terrestres. 
81 no hay ningún objetivo terrestre en 
pantalla, este misil no se dispara. Tiene 
gran utilidad para descubrir qué objeti- 
vos terrestres son destructibles y cua- 
les no, pero tiene la pega de que no tiene 
tanta eficacia como un copüoto experi- 
mentado. 

KTTJiER: Sólo se podrá utilizar cuando 
ambas naves se acoplen. Consta de un 
escudo de fuerza que rodea a la nave y la 
protege de cualquier agresión externa, 
su duración es limitada y no puede ser 
anulado (una vez conectado). Su venta- 
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ja es que destruye cualquier nave ene- 
miga que entre en contacto con ella, y 
su única pega es que para mantenerla 
se precisa de una cierta cantidad de 
energía, no pudiéndose utilizar cuando 
ésta se acaba. 

- SPECIAL: Esta es un arma secreta que 
es proporcionada casi al final de la par- 
tida, y sólo se podrá utilizar cuando am- 
bas naves se acoplen. Este arma, una 
vez disparada, destruirá todas las na- 
ves enemigas existentes en pantalla. 
Como ventaja tiene el que no hace falta 
ponerse debajo de las naves enemigas 
para destruirlas, y como inconveniente 
(cómo no) el que se pueda disparar sólo 
unas 7 veces. 

Respecto al acople de las naves, existen 
dos formas de hacerlo: 

- En paralelo: Cuando ambas naves se 
unen horizontalmente. Permite el dis- 
paro de 2 lásers y un arma opcional si- 

multáne amenté. 

- En serie: Cuando ambas naves se unen 
en vertical. Permite el disparo de 1 lá- 
ser y un arma opcional. 

Las armas opcionales se dividen en dos 
grupos, para el Jugador 1 y para el Jugador 
2, el arma opcional que se elija para el ju- 
gador 1 se podrá utilizar cuando se aco- 
plen en serie, y el arma opcional del Juga- 
dor 2 se podrá utilizar cuando se acoplen 
en paralelo. 

El movimiento de nuestra nave puede 
ser por toda la pantalla (es decir, arriba, 
abajo, derecha, izquierda y diagonales). 

La variedad de naves enemigas es muy 
grandes (más de 20 tipos), y cada Upo de 
nave ataca de una forma distinta. 

Al final de cada pantalla hay una nave 
nodriza (en las pantallas espaciales) o 
una base terrestre (en las pantallas pa- 
res), que conviene destruir con los misi- 
les. 

• 

Nuestro nivel de destreza se basa en la 
cantidad de marcianos destruidos en cada 
pantalla, y conviene pasar bien determi- 
nadas pantallas antes de pasar a la si- 
guiente. 



Cada vez que recibimos un impacto, la 
pantalla se ilumina el tiempo que recibi- 
mos ese impacto con el color de la nave 
que lo recibe (rojo o azul), de manera que 
cuando chocamos de frente con un edificio 
o un meteorolito la pantalla se ilumina un 
buen rato antes de que nos desintegremos. 

Sobre las instrucciones de manejo del 
programa (determinar mando a usar, ar- 
mas, jugadores, etc...) no las trataremos 
ya que están bastante bien explicadas en 
el manual. 



VALORACION CRITICA 

CUALIDADES: » 



* Opción de grabar las pantallas que 
hayamos pasado en el disco, de manera 
que no tengamos que volverlas a pasar, 
pudiendo seleccionar la pantalla a la cual 
queremos acceder. Sólo se puede grabar 
una pantalla cuando se paisa la pantalla 
siguiente a esta. 

* Movimiento de la nave muy suave y 
bien logrado. 

* Todos los gráficos de este juego apro- 
vechan sil máximo las cualidades del 
MSX2, teniendo por tanto una calidad ex- 
cepcional. Las naves están diseñadas con 
varios colores y tonalidades. Los paisajes 
no son estáticos, si no que cambian (los 
meteorolitos giran, las bases terrestres 
tienen un rojo que cambia continuamente 
de tonalidad, dando así un efecto muy es- 
pecial, etc...), el scroll de pantalla es punto 
a punto, y la duración de cada pantalla es 
de unos 4 minutos. 

* Las ventanas para la elección de las 
armas, controles, etc... están muy bien lo- 



con un efecto tridimensional. 

* El grado de adicción que puede llegar 
a tener es muy grande, ya que la práctica 
se logra con cierta facilidad. 

* Las imágenes que saca cada vez que se 
finaliza una etapa (es decir 6 fases). 

* Un sonido que sin ser extraordinario , 
se adapta perfectamente al juego, incluida 
una sintonía de fondo que suena siempre 
que Jugamos. 

* £1 hecho de indicarnos la falta de 
energía con intermitencias de la nave, que 
se hacen más rápidas cuanta menos ener- 
gía tengamos. 

* El detalle de poner un chipen la sexta 
pantalla, al cual si se le bombardea, pro- 
porciona cierta energía a la vez que pone 
Z-80. 

* Poder detener el juego con la tecla 
STOP, y reanudarlo volviéndola a pulsar. 

* El gráfico de inicio, al cual se une una 
voz sintetizada. 



DEFECTOS: 



* No permite la vlsuallzación de la pun- 
tuación una vez comenzada la partida 
hasta que ésta acaba ( pese a que el manual 
dice que sí que se puede). 

* No permite la grabación de pantallas 
a partir de la número 13, lo cual añade 
mucha dificultad al juego. 

* Las pantallas espaciales son bastante 
monótonas (si quitamos a los marcia- 
nos). 

* El hecho de no poder utilizar las ar- 
mas opcionales si no están las dos naves 
acopladas, 3ra que para que permanezcan 
acopladas se necesita que juntas tengan 
más de 1.000 de energía, lo cual es difícil 
de mantener en determinadas pantallas. 

* El hecho de que el coplloto no sea ne- 
cesario en determinadas pantallas y en 



otras sí, lo cual 
el mismo. 

* Que tenga que cargar cada fase del dis - 
co, lo cual tarda irnos 10 seg. 

* A mí personalmente me ha propor- 
cionado dos claves de acceso por piloto 
(cuatro en total) que no parecen tener 
ninguna utilidad, ni explicación lógica, 
proporcionándolas sólo cuando se ha pa- 
sado determinado nivel. 

* El manual omite la explicación de di- 
versas cosas (la selección de armas, la 

grabación a partir de la pantalla 13, etc...). 
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PENGUIN 
ADVEMTJRE 



Formato: Cartucho 1 Megabit MSX-1 o 
MSX-2. 

Mandos: Teclado y Joystick.. 




La nueva generación de cartuchos 
ROM ya está aquí. Estos nuevos 
cartuchos incluyen un Mb de me- 
moria ROM, lo que les permite una mayor 
complejidad, tanto a nivel de desarrollo 
del juego como de calidad de gráficos. Otra 
característica de estos cartuchos es su in- 
violabilidad, puesto que no hay ordenador 
capaz de almacenar un Mega en su RAM. 

Este nuevo juego que nos presenta K0- 
NAMI es, en realidad, una magnífica mejo- 
ra del ya conocido ANTARTIC ADVENTTJ- 
RE. 

En esta ocasión también manejamos un 
pingüino, pero no debemos dar la vuelta a 
la Antártida, sino que tenemos que ir a re- 



coger una manzana que crece en un árbol 
plantado en una lejana isla y volver por 
otro camino, más largo, difícil y con más 
peligros. 

En el juego destaca la originalidad, su 
elaborado grafismo, su música y los soni- 
dos que son muy variados y nuevos. 

Este juego incorpora una gran cantidad 
de posibilidades. Primero podemos elegir 
uno de los niveles de dificultad y, ya jugan- 
do podemos —por ejemplo- caer en unos 
agujeros (los medianos) para poder así 
comprar algunos objetos que nos pueden 
ayudar para que podamos acabar esta 
gran aventura. Estos objetos (botas, pisto- 
las, gafas, sombreros, collares, anillos y 



que recogemos durante el camino. 

En estos agujeros (realmente cuevas) 
en los que caemos, para comprar dichos 
objetos habitan tres personajes diferen- 
tes: 

— El primero de ellos nos vende los ob- 
jetos a un precio razonable. 

— Un segundo personaje nos sube los 
precio^: 

— El tercero nos regala 1 objeto. 

En estas cuevas también podemos pro- 
bar fortuna ya que tenemos la oportuni- 
dad de jugarnos los peces en una máquina 
trapageces. 

La novia del pingüino, en la cual éste 
piensa al principio del juego, también 
quiere ayudarle mandándole unos corazo- 
nes. Estos van cambiando de color y cada 
uno tiene una función. 

Así, por ejemplo, el corazón azul hace 
que aparezca una nube debajo del pingüi- 
no, con la cual puede volar por toda la pan- 
talla durante un tiempo limitado. El cora- 
zón amarillo le vuelve invulnerable du- 
rante algún tiempo. 

A lo largo del juego, y a medida que vaya- 
mos pasando pantallas aparecerán mur- 
ciélagos, rocas, bolas de fuego, nubes, pul- 
pos y otros objetos y animales que inten- 
tan impedirnos llegar a la meta. Además 
de esto también deberemos luchar contra 
el tiempo ya que el recorrido/camino es 
largo, y el tiempo va agotándose rápida- 
mente. 

Como ya he mencionado anteriormente, 
la música es excelente y los gráficos tam- 
poco dejan nada que desear. Hay diferen- 
tes escenas: pasamos por bosques, que a 
veces están nevados y a veces no, nadamos 
en ríos, buceamos y recorremos cuevas. 

Como habréis observado, el juego es 
muy completo. Pero aún faltan muchas 
cosas por explicar (pantalla BONUS, sa- 
cos de dinero, dinosaurio y más ), que no os 
serán desveladas para no restar emoción 
a sus ftituros poseedores. 

PROS: I,', II I III M, ! I II, Mil 



* Gráficos muy tíuenos, música y soni- 
dos excelentes. 

* Gran originalidad. 

* Se puede parar (sólo por un momen- 
to) el juego mediante la tecla Fl. Aparece 
el mapa de la ruta y el pingüino -que pri- 
mero corre- se sienta y descansa, después 
se echa agotado y al final se baña. 

* Muchas posibilidades de variar el de- 
sarrollo durante el juego. 

* Incopiable(l Mb). 



CONTRAS: 



* Muy difícil; uno puede desanimarse, 
medíante J?** 61 JU6g ° 




Tratamiento de ficheros] 











FICHEROS DE 




EATORIO 



Tras la visión obtenida en los capítulos anteriores sobre los ficheros en memoria y secuenciales, entramos hoy de 

pleno en el mundo de los ficheros de acceso aleatorio. 

Hasta ahora hemos hablado de y no podemos leer del disco única- 
dos diferentes tipos de fiche- mente el nombre de la ficha sin leer el 
ros: en memoria v secuencia- resto de ella. 



dos diferentes tipos de fiche- 
ros: en memoria y secuencia- 
les. Cada uno de ellos tiene una parti- 
cular característica que lo hace pre- 
ferible sobre el otro. 

Los ficheros en memoria son muy 
rápidos, y permiten acceder a cual- 
quier elemento en todo momento. Los 
ficheros secuenciales, en cambio, son 
lentos y pesados de actualizar y con- 
sultar; pero pueden ser almacenados 
en una cinta de cassette. 

También hemos hablado de la com- 
binación de ficheros secuenciales y 
en memoria, para permitir así una 
gestión completa de cualquier fiche- 
ro. 

Hoy tratamos los ficheros de acce- 
so directo; pero ¿cuáles son sus ven- 
tajas e inconvenientes? 

Los ficheros de acceso directo, tam- 
bién conocidos como ficheros RAJNT- 
DOM o ficheros de acceso aleatorio 
permiten las ventajas de los dos ante- 
riores. Se puede acceder a cualquier 
elemento del fichero de forma rápida 
y sencilla. El fichero está constante- 
mente almacenado en disco, por lo 
que no se pierde al apagar el ordena- 
dor. Y finalmente, están soportados 
sobre disco, con la velocidad que ello 
comporta respecto a la cinta. 

Otra ventaja adicional de los fiche- 
ros RANDOM es que permiten un 
gran tamaño. Mientras con los fiche- 
ros en memoria estamos limitados 
por los 28Kb que nos permite el BA- 
SIC, con los ficheros aleatorios pode- 
mos acceder hasta los 720Kb de algu- 
nas unidades de disco. 

Veamos a continuación cómo fun- 
cionan los ficheros de acceso directo. 

PICHEROS DE ACCESO DIRECTO 

En los ficheros de acceso directo, la 
unidad fundamental es el registro o 
ficha. El fichero aleatorio es un con- 
junto de registros Iguales a los que 
podemos acceder de forma indivi- 
dual. 

El ejemplo mas claro de registro es 
una ficha de personal de una empre- 
sa, o una ficha de libros, etc. En la fi- 
cha conviven datos de muy diferentes 
clases: caracteres o numéricos (ente- 
ros o de simple y doble precisión). 

Dentro del fichero sólo podremos 
acceder a una ficha como conjunto. 
Es decir, deberemos leer toda la ficha, 



Cada ficha viene identificada por 
un número, de uno en uno. Así, delan- 
te de la ficha 34 hay 33 fichas. Es im- 
portante no asignar números a nues- 
tro antojo, ya que si para un fichero 
de dos fichas damos los números 23 y 
1056 habremos generado un fichero 
de 1056 fichas que nos ocupará, con 
toda seguridad, la mayor parte del 
disco. 

Uno de los problemas mas frecuen- 
tes es hallar el medio adecuado para 
especificar esta numeración; pero 
hablaremos más adelante de los mu- 
chos sistemas de indexación existen- 
tes. 

LOS ALEATORIOS EN BASIC 

En BASIC los ficheros aleatorios 
presentan, en comparación con los 
ficheros en memoria o secuenciales, 
una importante dosis de dificultad. 
La mayor complicación de estos fi- 
cheros se halla en dos puntos funda- 
mentales: todo el fichero (incluidos 
los datos numéricos) debe codificar- 
se en forma de caracteres, y en segun- 
do lugar, que existe muy poca infor- 
mación sobre este tipo de ficheros en 
los manuales de Droíramación de los 
MSX. 

Existen en BASIC varias instruc- 
clones que permiten traDajar con ios 



ficheros RANDOM. La primera que 
veremos permite la apertura de un fi- 
chero. Se trata de OPEN, que ya cono- 
cemos de los ficheros secuenciales, 
pero que se encuentra aquí en un for- 
mato diferente. 



n 



Evidentemente, hemos de sustituir 
"nombre" por el nombre del fichero 
entrecomillado. No tan evidente es la 
n de #n, que debe sustituirse por el 
número de fichero (normalmente 1 a 
no ser que trabajemos con varios fi- 
cheros simultáneamente). Final- 
mente LEN=xxx indica la longitud 
en caracteres de la ficha que va a 
componer el fichero. Aprenderemos 
más adelante a calcular esta canti- 
dad- Si no indicamos nada (suprimi- 
mos LEN=xxx), se tomarán 256 ca- 
racteres como longitud de la ficha. 

Tras abrir el fichero debemos indi- 
carle al ordenador en qué campos se 
debe dividir la ficha. Un campo es 
cada uno de los conceptos que for- 
man la ficha, como pueden ser nom- 
bre, dirección, DNI, si se trata de un 
fichero de personas. 

Hemos de prever también la longi- 
tud máxima que pueden llegar a te- 
ner cada uno de los campos. Una vez 
hemos decidido todos estos puntos 
podemos ya pasar a definir el FIELD 
de nuestro fichero (FIELD significa 
campo en inglés). 



Loa ficheros aleatorios sólo pueden utilizarse con una unidad de discos 
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FTELD # n,long 1 JkB 
campo 1 $,long2 AS campo 2$,... 

En primer lugai* n, de #n, debe ser 
sustituido por el número del archivo 
del que queramos definir los campos. 
A continuación debemos indicar la 
longitud del primer campo (longl ) y 
la variable alfanumérica que conten- 
drá el primer campo (campo 1$). De 
forma análoga hemos de hacer para 
el resto de los campos de nuestro fi- 
chero. 

i IMPORTANTE! Las variables de 
nombre de campo han de ser siempre 
alfanumóricas. En caso de ser numé- 
ricas hay que realizar una conver- 
sión que ahora comentaremos. 

Para que quede claro todo el proce- 
so vamos a realizar un ejemplo de fi- 
chero aleatorio. 

Nuestro fichero contendrá un nú- 
mero indeterminado de fichas co- 
rrespondientes a planetas. En cada 
ficha almacenaremos: 

* El nombre del planeta con un má- 
ximo de 10 caracteres. 

* El número de lunas que orbitan a 
su alrededor (un número entero). 

* La duración (en días) de su perío- 
do de rotación alrededor del sol (el 
año). Utilizaremos para ello una va- 
riable de simple precisión. 

* La distancia (en kilómetros) al 
sol. Esta cantidad precisa de una va- 
riable de doble precisión. 

En primer lugar, para poder indi- 
carle al fichero la longitud de cada fi- 
cha hemos de tener clara la longitud 
máxima de cada campo. En el nom- 
bre del planeta lo tenemos bien claro. 
10 caracteres. El problema se en- 
cuentra con los datos numéricos. 

Utilizaremos, para codificarlos en 
caracteres, el formato interno de la 
máquina, que utiliza 2 bytes para las 
variables enteras, 4 para las de sim- 
ple precisión y 8 para las de doble 
precisión. 

En total, pues, nuestro fichero ne- 
cesita de 10+2+4+8=24 caracteres. 



La apertura y definición de campos 
de nuestro fichero quedará de la si- 
guiente forma. 



OPEN "planetas" AS #1 U5N=24 

FIELD#1,10 AS N0M*,2 AS LUN*,4 
AS R0T$,8 AS DISTI 



finalmente, y antes de pa- 
sar al siguiente punto, a citar varios 
aspectos importantes a tener en 
cuenta con los ficheros aleatorios 

* La longitud máxima de una ficha 
es de 256 caracteres. 

*Las variables de un FIELD han de 
ser siempre alfanumóricas. 

*Si la longitud que indicamos al 
abrir el fichero no es correcta pueden 
pasar dos cosas. Si damos un número 
demasiado pequeño para nuestra fi- 
cha, no cabrá, y el ordenador nos 
marcará un error. 

Si el número es excesivamente 
grande estaremos desperdiciando el 
espacio del disco, que podemos nece- 
sitar más adelante. 



GRABEMOS DATOS EN EL FICHERO 

Grabar datos en un fichero RAN- 
DOM no es demasiado sencillo. Pen- 
semos para ello en cómo maneja el 
ordenador este tipo de ficheros. 

El ordenador, antes de grabar nada 
en el fichero, almacena los datos que 
componen la ficha en un buffer (zona 
de memoria para uso temporal). Sólo 
cuando la ficha está completa y se lo 
indiquemos, procederá a almacenar 
el contenido del buffer en el disco. En 
el caso de que el tamaño de la ficha 
sea pequeño puede ocurrir que espe- 
re a tener varias fichas para grabar- 
las en el disco. 

Es importante, por tanto, que antes 
de proceder a la grabación de una fi- 
cha en el disco nos aseguremos de 
que está completamente utilizada. 

El modo de enviar los datos que de- 
seemos al buffer es sencillo, y ya el 
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Organización de un fichero secuencia! 
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de un fichero aleatorio 




propio BASIC se encarga de llenar al 
máximo cada uno de los campos. Es 
decir, y siguiendo con nuestro ejem- 
plo anterior, si indicamos un nombre 
de planeta con sólo 4 caracteres el 
BASIC se encargará de añadir 6 más. 
Nos toca a nosotros decidir, sin em- 
bargo, dónde deben insertarse esos 
espacios. 

Dejémosnos de tanta explicación 
teórica y vamos con un ejemplo. Ima- 
ginemos que queremos introducir el 
planeta tierra en nuestro fichero. 
Haremos: 

• 

LSBT NOM $ = "Tierr a" 
LSET LUür$ = HKI$(l) 
LSBT R0T$=MXSt(368.8B) 
LSBT DIST$ = MKD$(9.8E + 12) 

En primer lugar la instrucción 
LSET indica que se introduzca en la 
parte de buffer correspondiente a la 
variable de campo que le sigue el dato 
que hay tras el igual. El dato se colo- 
cará a la izquierda (LEFT) del campo, 
rellenando de espacios por la dere- 
cha hasta completarlo. Si en lugar de 
LSET hubiésemos utilizado RSET, el 
contenido del campo se hubiera si- 
tuado a la derecha del mismo, deján- 
dose espacios a la izquierda. 

Hemos de hablar también de las 
funciones que nos permiten pasar de 
formato numérico a alfanumérico. 
Estas funciones son: 



MKI $, pasa de numérico 
alfanumérico. 



pasa de simple 



MKZD $ . nasa de doble nreclsión 
a alfanumérico. 

Una vez seguido todo este proceso 
sólo nos queda indicar al ordenador 
que grabe los datos en el disco. Utili- 
zamos para ello la instrucción FOT. 

PUT#n, num_f icha 

Donde n vuelve a ser el número de 
archivo y num_flcha la posición que 
debe ocupar la ficha en el fichero. Si 
indicamos dos veces el mismo núme- 
ro de ficha perderemos la primera 
que hubiésemos grabado. 

En caso de no indicar el número de 
ficha se tomará el siguiente a la últi- 
ma ficha escrita. Y si no hemos escri- 
to ninguna se entenderá que se trata 
de la primera ficha. 

Para cerrar el fichero, y también 
este artículo, la instrucción CLO- 
SE#n nos permite cerrar el fichero 
con el número n. 

Pero una de las mayores virtudes 
de los ficheros de acceso directo es 
que nos permiten grabar y recuperar 
datos al mismo tiempo. Veremos en 
el próximo número el modo de recu- 
perar los datos almacenados en 
nuestros ficheros de acceso directo. 
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TRUCOS DEL 



PROGRAMADOR 




LOS GOONIES A FONDO 




El juego "Los Goonies" está alcan- 
zando una gran popularidad entre 
los usuarios de MSX. Son muchos 
los que pasan o han pasado horas delante 
de este juego. 

Como sabéis, una vez que hemos supera- 
do un nivel, el ordenador nos da unas cla- 
ves para que podamos pasar a los siguien- 
tes directamente cuando queramos volver 
a jugar. 

Nuestro amigo Sascha Ylla-Kónneke 
nos envía las claves que permiten acceder 
a los diferentes niveles de este interesante 
Juego. 

Para poder entrar la clave hay que pul- 
sar la tecla M K" mientras se mantiene pul- 
sada la tecla "CTRL" Ya sólo os queda en- 
trar la clave que deseéis para poder empe- 
zar en la pantalla que elijáis. 

Pant.l - No necesita clave. 

Pant.2 - GOONIES 

Pant.3 - MR SLOTH 

Pant.4 - GOON DOCKS 

Pant.5 - DOUBLOON 

Pant.6 - ONE EYED WILLY 



SOMD EN SVI-318/328 
MAS ADAPTADOR 

Los usuarios de los primeros SVI- 
3 18 y SVI-328 cuentan, en el BASIC 
de su aparato, de una instrucción 
con la que no cuenta el BASIC MSX. 

Esta instrucción es SOUND, que al igual 
que MOTOR, puede conectarse o desconec- 
tarsó añadiendo ON u OFF respectivamen- 
te. El uso de esta instrucción permite que 
el sonido grabado en el cassette se oiga por 
medio del altavoz del televisor o monitor. 

Gracias a esto se puede mezclar el soni- 
do de una cinta con el producido por el 
MSX, o bien simplemente oír un poco de 
música mientras programamos, aunque 
su principal aplicación es la de poder com- 
probar la lectura de un programa, ya que 
en el altavoz del monitor sonará lo mismo 
que esté leyendo el cassette. 

Aquellos usuarios de estas máquinas 
que hayan optado por convertirlas en 
MSX gracias al adaptador CCG (comenta- 
do en este número de nuestra revista) no- 
tarán que, por la adaptación al MSX, se 
pierde esta instrucción. 

Sin embargo, una vez en modo MSX, 
esta instrucción se puede imitar con: 
OUT #H96,INP(#H9A) XOR 64 
Esta línea conectará el sonido del cas- 
sette si estaba inhibido y lo inhibirá si es- 
taba conectado. 

Hemos de decir, finalmente, que este 
truco puede no funcionar en todos los SVI- 
318/328 va aue los últimos modelos no 
cuentan con esta instrucción. 






ADAPTADO! 

sx / 
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AUTOEJECUTAE UU 
PROGRAMA EN BASIC 



Una de las cuestiones que con más 
frecuencia llegan a nuestro depar- 
tamento de progra mación por me- 
dio de la sección INPUT/OUTPUT es la de 
cómo auto-ejecutar un programa en BA- 
SIC. 

Existe, naturalmente, la posibilidad de 
grabar el programa en ASCII con SAVE 
"nombre" para más tarde cargarlo con 



LOAD 



•lililí») 



?e w 3- 



El inconveniente de este sistema es que 
cualquiera puede cargar el programa con 
LOAD "nombre" y de este modo poder lis- 
tarlo y modificarlo. 

Otro inconveniente es que el programa 
se hace interminable con lo que no es re- 
comendable en programas largos. 

La solución que proponemos a conti- 
nuación permite grabar los programas en 
formato comprimido (como con CSAVE); 
pero con la particularidad de que sólo se 
cargará con BLOAD a nombre",R. 

Si intentamos cargar el programa con 
BLOAD "nombre" éste se cargará; pero no 
podrá ser listado por mucho que lo inten- 
temos. Es, por tanto, una interesante solu- 
ción para las miradas indiscretas. 

El proceso a seguir para conseguir ins- 
talar esta protección en uno de vuestros 
programas es el siguiente. 

En primer lugar aseguraos de que vues- 
tro programa no contiene ninguna línea 
por encima de la 59990. Remunerad el 



Una vez hecho esto, añadid a vuestro 
programa las lineas incluidas en el lista- 
do, apunto. Cuando hayáis terminado 
(cuidado con las equivocaciones), podéis 
pulsar las teclas PLAY 9 RECORD de vues- 
tro cassette para ponerlo en modo graba- 
ción y a continuación hacer RUN 60000. 

Tras esto tendréis grabada en la cinta 
una copia protegida de vuestro programa, 
que sólo funcionará si la cargáis con 
BLOAD "prog"3. 



LISTADO 



59990 
60000 
60010 
60020 
60030 
60040 
60050 
60060 
60070 
60080 
60090 
60100 
60110 
60120 
60130 
60140 
60150 
60160 



END 



• 



A=PEEK(ltHF6C2) +256IPEEK UHF6C3) 

POKE A+16.1H21 

POKE A+17,PEEKttH8001) 

POKE A*18,PEEKUH8002) 

POKE A+19,&H22 

POKE A+20,M1 

POKE A+21.&H80 

POKE A+22,ltH21 

POKE A+23,PEEK(ítHF6C21 

POKE A+24,PEEKttHF6C3) 

POKE A+25.1H22 

POKE A+26,fcHC2 

POKE A+27.&HF6 

POKE A+28,fcHC3 

POKE A+29,*HAC 

POKE A+30.M73 

BSAVE'prog',iH8000,A+30 J A+16 



Por 
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¡SIN BOMBOS NI PLATILLOS! 



La editorial Manhattan Transfer, S.A. 
Se gana a pulso la confianza del lector. 
Cada una de sus publicaciones tienen el 
objetivo específico de servir al lector/usuario. 



MANHATTAN 
TRANSFER, S.A. 

No se limita a 
llenar páginas 
las llena de contenido 



A la vanguardia de la prensa útil 




CD COMPACT - PCompatible - MSX Extra - MSX Club de Programas 



Esta Primavera 
Sony da mucho juego 



NUEVOS PROGRAMAS MSX 



MUSICSTUDIOG; 



FARM KIT 




LAS VEGAS. 


ROMA. LA 


LODE 


SPACE KIT. 


PRINT LAB. 


GRAPHIC 


MUSIC 


Juego de de- 


CONQUISTA 


RUNNER II. 


Para dibujar el 


Diseñador grá- 


MASTER. 


STUDIO. 


tectives. Debe- 


DEL IMPERIO. 


Excitante juego 


espacio como 


fico. Incluye un 


Editor gráfico. 


Para compo- 


rás recuperar 


La conquista 


de aventuras y 


tú siempre lo 


cassette con 19 




ner canciones 


una alta suma 


de las tierras 


prueba de ha- 


has imaginado. 


interesantes 




sin necesidad 


dedinero deun 


del imperio ro- 


bilidad. 


trazados y dibu- 




de tener cono- 


«capomafioso». 


mano. 






jos. 




cimientos de 
música. 



FARM KIT. 

Construye y 
pinta la granja 
de tus sueños. 



NUEVOS PROGRAMAS MSX2 




tmvt 

C0M£CTI0N 
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CHOPPER 2. 


RED LIGHTS OF 


HYDLIDE. 


WORLD 


LAYDOCK. 


Al mando de un heli- 


AMSTERDAM. 


Programa de acción. 


GOLF. 


Eres el piloto escogi- 


cóptero blindado de- 


La más excitante par- 


El príncipe debe res- 


Juega al golf como 


do para devolver la 


berás combatir a tus 


tida de poker que ja- 


catar a la princesa 


un profesional. 


paz al Universo. 


enemigos. 


más hayas jugado. 


con muchas dificulta- 








des. 


# 





KINETIC 
CONNECTION. 

Forma la figura miste- 
riosa atrapando los 
objetos voladores. 



¡ No te los pierdas ! 




HíT BET 



